Флеш диск

← →
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]

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

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

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

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

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;

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