Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.055 c
15-1167581182
ArtemESC
2006-12-31 19:06
2007.01.21
-&amp;#8734; =>... => 1 => 2 => ... => 2006 => !! => 2007 => .... => +&amp;#8734;


15-1167264430
@!!ex
2006-12-28 03:07
2007.01.21
Булевы функции. Классы поста.


2-1167822845
vitv
2007-01-03 14:14
2007.01.21
Потеря соединения с СУБД


15-1167137406
AntiUser
2006-12-26 15:50
2007.01.21
Разработчики Firefox не смогли устранить ошибки при работе в ...


2-1167760801
bolt
2007-01-02 21:00
2007.01.21
Как узнать на какой ITEM в TreeView щелкаем?