Текущий архив: 2007.01.21;
Скачать: CL | DM;

Вниз

Проблема с использованием функции 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)

---

← →
Chaval ©   (2007-01-04 21:02) [4]

Спасибо.

---

← →
Chaval ©   (2007-01-04 21:03) [5]

Спасибо.

---

Страницы: 1 вся ветка

Текущий архив: 2007.01.21;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.083 c