Скачать: CL | DM;

Флеш диск   Найти похожие ветки 

← →
S@lik ©   (2004-11-13 12:05) [0]

Как узнать какую букву занимает флеш диск и есть ли он в данный момент

---

← →
Cobalt ©   (2004-11-13 12:08) [1]

Он неотличим от остальных извлекаемых устройств (Removable drive)
А так, попробуйте перебирать устройства, подключённых к USB Mass Storage Device

---

← →
GanibalLector ©   (2004-11-13 12:24) [2]

http://delphimaster.net/view/4-1098954862/
Не уверен,но попробуйте

---

← →
S@lik ©   (2004-11-13 13:21) [3]

не мне надо узнать флеш дик это или нет

---

← →
GanibalLector ©   (2004-11-13 16:26) [4]

Ну а в чем проблема?По идее должно быть
DRIVE_REMOVABLE
или
DRIVE_REMOTE

---

← →
S@lik ©   (2004-11-14 07:59) [5]

GanibalLector спасибо все получилось

---

← →
S@lik ©   (2004-11-14 08:28) [6]

Точней не получилось DRIVE_REMOVABLE DRIVE_REMOTE он мне выдает букву флопика

---

← →
S@lik ©   (2004-11-14 09:02) [7]

Все тема закрыта

---

← →
GanibalLector ©   (2004-11-14 14:23) [8]

Э...господин.Вы хоть скажите как получилось?

---

← →
Anatoly Podgoretsky ©   (2004-11-14 14:53) [9]

Флеш диск может прикидыаться абсолютно любым диском.

---

← →
S@lik ©   (2004-11-15 06:51) [10]

вот что получилось

function DiskInDrive(Drive: Char): Boolean;
var
 DrvNum : Byte;
 EMode : Word;
begin
 Result := True;
 DrvNum := ord(Drive)-ord("A")+1;
 Emode := SetErrorMode(SEM_FAILCRITICALERRORS);
 try
   if DiskSize(DrvNum) = -1 then Result := False;
 finally
   SetErrorMode(EMode);
 end;

end;

function GetFlahName: Char;
var
 i : Char;
begin
 Result := "";
 for i := "С" to "Z" do
 begin
   case GetDriveType(PChar(i+":\")) of
     DRIVE_REMOVABLE :
     begin
       Result := i;
       Exit;
     end;
   end;
 end;

end;

---

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

Скачать: CL | DM;



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