Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2004.12.26;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 вся ветка

Форум: "WinAPI";
Текущий архив: 2004.12.26;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.035 c
14-1102307446
Урфин Джюс
2004-12-06 07:30
2004.12.26
Do not localize


1-1102856803
Павел
2004-12-12 16:06
2004.12.26
Задержка


3-1101817727
Shuma
2004-11-30 15:28
2004.12.26
Ошибка при добавлении картинки в базу


14-1102458363
KilkennyCat
2004-12-08 01:26
2004.12.26
Компания "ЭСК" полностью завершила процесс госрегистрации.


6-1097231321
4MO
2004-10-08 14:28
2004.12.26
Proxy





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский