Главная страница
    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.071 c
1-1102876464
electric
2004-12-12 21:34
2004.12.26
TreeView полный путь


6-1095147812
Александр1
2004-09-14 11:43
2004.12.26
Подключение к интернету


1-1102588333
Tornado
2004-12-09 13:32
2004.12.26
Форма в DLL


1-1102569190
PEKAHT
2004-12-09 08:13
2004.12.26
MSSQL


1-1102714908
Larisa
2004-12-11 00:41
2004.12.26
По умолчанию, в Делфи используется MS San Serif,





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский