| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Где грабли? или GetLogicalDriveStrins и GetDriveType [D6, Win95/98, Win2k]

vlad_ri1 ©   (2002-10-29 13:07:00) 

Почему данный код работает под Win2k и получаю False ROOT в Win98:
procedure TForm1.GetDrives;
var Buf: array[0..1023] of Char;
s: string;
BufLen: integer;
i: integer;
begin
Memo1.Lines.Append("Logical drives:");
GetLogicalDriveStrings(BufLen,Buf);
i:=0;
while buf[i]<>#0 do
begin
s:="";
while buf[i]<>#0 do
begin
s:=s+buf[i];
inc(i);
end;
case GetDriveType(PChar(s)) of
0: s:=s+" - UNKNOWN drive type";
1: s:=s+"False ROOT";
DRIVE_REMOVABLE: s:=s+" - removable drive (floppy)";
DRIVE_FIXED:
begin
{GetVolumeInformation}
s:=s+" - fixed drive (HDD)";
end;
DRIVE_REMOTE: s:=s+" - remote (network) drive";
DRIVE_CDROM: s:=s+" - CD-ROM drive";
DRIVE_RAMDISK: s:=s+" - RAM disk";
end;
Memo1.Lines.Append(s);
inc(i);
end;
Memo1.Lines.Append("");
end;

в SDK написано что обе функции работают как по NT так и под Win95/98.

---

vlad_ri1   (2002-10-29 19:29:00) [1]

Большое спасибо, следующий раз буду читать внимательней :)

---

Игорь Шевченко   (2002-10-29 13:26:00) [2]

Ошибка, как всегда, в ДНК:


var Buf: array[0..1023] of Char;
s: string;
BufLen: integer;
i: integer;
begin
Memo1.Lines.Append("Logical drives:");
GetLogicalDriveStrings(BufLen,Buf);


Функция GetLogicalDriveStrings требует первым параметром указывать размер буфера, а не неинициализированную переменную.

GetLogicalDriveStrings (sizeof(Buf), Buf) оно вернее будет.

---

Наверх