Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Почему у меня не работает функция GetLogicalDrivestrings? [D5, D6, WinME]

AlDid © (2003-02-20 00:03:00)
Уважаемые Мастера Delphi! Прошу Вашей помощи!!

Проблема у меня следующая:
Я хочу получить список логических дисков, имеющихся на машине. Но... Дело в том, что функция GetLogicalDrivestrings, по идее, должна их мне возвратить, но не обязана!
Если я ей передаю buffer типа array[0..255] of char, то она возвращает только "a:\", а если передаю buffer типа PChar, то она возвращает вообще не понятно что: "S>Ы>ьЛЫ|" или получаю Acceess Violation. Как быть?

procedure TForm1.Button1Click(Sender: TObject);
var buffer : array [0..255] of Char;
//buffer : Pchar;
begin
GetLogicalDrivestrings(SizeOf(buffer),buffer);
StaticText1.Caption:=buffer;
end;

Заранее спасибо огромное!

AlDid (2003-02-21 21:12:00) [1]
>[lamer]Barmaglot ! Большое тебе прибольшое спасибо! Все отлично работает :)

[lamer]Barmaglot (2003-02-20 09:40:00) [2]
procedure TForm1.Button1Click(Sender: TObject);
const
k: integer=0;
var
Buffer: Array of Char;
Counter: Integer;
begin
Counter:=GetLogicalDriveStrings(0,PChar(Buffer));
SetLength(Buffer, Counter);
GetLogicalDriveStrings(Counter,PChar(Buffer));
listbox1.Items.Add(PChar(Buffer));
Repeat
if (Buffer[k]=#0) then listbox1.Items.Add(PChar(@Buffer[k+1]));
inc(k);
until (Buffer[k]=#0) and (Buffer[k+1]=#0);
Buffer:=nil;
end;

jack128 (2003-02-20 04:58:00) [3]
а ты в сторону хелпа смотрел?
А между тем там англицким языком написано, что разделителем названий дисков является 0(ноль, null). Ясное дело у тебя выводится только первый диск...

ЗЫ кстати результат это не длина строки, скопированной в buffer, а необходимое кол-во памяти для копирования названий всех дисков...

AlDid (2003-02-20 00:55:00) [4]
Результат функции равен 16.
16 - это длина в символах строки, скопированной в buffer...

Anatoly Podgoretsky (2003-02-20 00:14:00) [5]
Чему равен результат фвункции?
И посмотри хелп об ограничителях в строке(буфере)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »