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

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

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

Chaval ©   (2007-01-04 15:32:00) 

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

---

Chaval   (2007-01-04 21:03:00) [1]

Спасибо.

---

Chaval   (2007-01-04 21:02:00) [2]

Спасибо.

---

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

>  DrChar:=@Drstr;


DrChar := PChar(Drstr)

---

kaZaNoVa   (2007-01-04 15:55:00) [4]

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


---

kaZaNoVa   (2007-01-04 15:53:00) [5]

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;



---

Наверх