Проблема с использованием функции GetDriveType

← →
Chaval © (2007-01-04 15:32) [0]

Drivetype:=GetDriveTypeA("A:\") - работает, но
var DriveType:UINT; DrChar:PAnsiChar; drstr:String; begin DrChar:=@Drstr; DrStr:="A:\"; Drivetype:=GetDriveType(DrChar); end;
возвращает 1(неверный тип накопителя)

← →
kaZaNoVa © (2007-01-04 15:53) [1]

Form1.moInfo.Lines.Add("Logical drives :"); ld := GetLogicalDrives; for i := 0 to 25 do begin if (ld and (1 shl i)) <> 0 then if GetDriveType(PChar(Char(Ord("A") + i) + ":\"))=DRIVE_FIXED then Form1.moInfo.Lines.Add("HDD "+Char(Ord("A") + i)+":\"); if GetDriveType(PChar(Char(Ord("A") + i) + ":\"))=DRIVE_REMOVABLE then Form1.moInfo.Lines.Add("Floppy Disk "+Char(Ord("A") + i)+":\"); if GetDriveType(PChar(Char(Ord("A") + i) + ":\"))=DRIVE_CDROM then Form1.moInfo.Lines.Add("CD-Rom "+Char(Ord("A") + i)+":\"); end; end;

← →
kaZaNoVa © (2007-01-04 15:55) [2]

попробуй:DrStr:="A:\"; Drivetype:=GetDriveType(PChar(DrStr));

← →
Игорь Шевченко © (2007-01-04 15:57) [3]

> DrChar:=@Drstr;

DrChar := PChar(Drstr)

Спасибо.

Проблема с использованием функции GetDriveType Найти похожие ветки