Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Флеш диск [D6, WinXP]

S@lik © (2004-11-13 12:05:00)
Как узнать какую букву занимает флеш диск и есть ли он в данный момент

S@lik (2004-11-15 06:51:00) [1]
вот что получилось

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;

Anatoly Podgoretsky (2004-11-14 14:53:00) [2]
Флеш диск может прикидыаться абсолютно любым диском.

GanibalLector (2004-11-14 14:23:00) [3]
Э...господин.Вы хоть скажите как получилось?

S@lik (2004-11-14 09:02:00) [4]
Все тема закрыта

S@lik (2004-11-14 08:28:00) [5]
Точней не получилось DRIVE_REMOVABLE DRIVE_REMOTE он мне выдает букву флопика

S@lik (2004-11-14 07:59:00) [6]
GanibalLector спасибо все получилось

GanibalLector (2004-11-13 16:26:00) [7]
Ну а в чем проблема?По идее должно быть
DRIVE_REMOVABLE
или
DRIVE_REMOTE

S@lik (2004-11-13 13:21:00) [8]
не мне надо узнать флеш дик это или нет

GanibalLector (2004-11-13 12:24:00) [9]
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1098954862&n=5
Не уверен,но попробуйте

Cobalt (2004-11-13 12:08:00) [10]
Он неотличим от остальных извлекаемых устройств (Removable drive)
А так, попробуйте перебирать устройства, подключённых к USB Mass Storage Device

Наверх

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