Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.31;
Скачать: CL | DM;

Вниз

Как проверить, что в CD-ROm вставили новй диск?   Найти похожие ветки 

 
Lucifer ©   (2005-05-31 16:47) [0]

Здравствуйте!
Вопрос такой:
Как отследить, что пользователь вставил новй диск в дисковод, т.е. дисковод закрылся и в нём торчит диск?

Заранее благодарен за любую инфу!


 
lucifer ©   (2005-05-31 17:18) [1]

Есть конечно такой способ:
через какой-то промежуток времени проверять на наличие диска в приводе вообще - сравнимать метку диска с предыдущими проверками и если она поменялась - то значит диск вставлен новый! Но тогда другой вопрос - как узнать метку диска в приводе?


 
OSokin ©   (2005-05-31 18:16) [2]

Через FMExtensionProc, используя FMS_GETDRIVEINFO (это по WinAPI в справке описано, какой юнит подключать - не помню) или через GetVolumeInformation.


 
lucifer ©   (2005-05-31 18:19) [3]

GetVolumeInformation - А МОНА ПО ЭТОМУ НЕМНОГО ПО ПОДРОБНЕЕ, А ТО В СПРАВКЕ ВСЕ ПО АНГЛИЙСКИ, А Я С НИМ НЕ СОВСЕМ ДРУЖУ, А РУССКОЙ СПРАВКИ ПОД РУКОЙ СЕЙЧАС НЕТ. в ПРИНЦИПЕ КАК И ВРЕМЕНИ!


 
rOOse ©   (2005-05-31 18:26) [4]

procedure TForm1.Button1Click(Sender: TObject);
var
VolName: array [0..255] of char;
FSName : array [0..100] of char;
VolSN: PDWORD;
MaxCompLen,FSFlags: Cardinal;

begin
 VolSN:=nil;
 if (GetVolumeInformation("g:\",VolName,255,
 VolSN,   MaxCompLen, FSFlags,FSName,100)) then
 label1.Caption:=AnsiString(VolName);
end;


 
Игорь Шевченко ©   (2005-05-31 18:29) [5]


> А МОНА ПО ЭТОМУ НЕМНОГО ПО ПОДРОБНЕЕ, А ТО В СПРАВКЕ ВСЕ
> ПО АНГЛИЙСКИ, А Я С НИМ НЕ СОВСЕМ ДРУЖУ


С головой сначала подружись.


 
lucifer ©   (2005-05-31 18:44) [6]

rOOse - СПАСИБО КАЖЕТЬСЯ ПОЛУЧИЛОСЬ!!
Игорь Шевченко - Что те не нравиться?


 
Игорь Шевченко ©   (2005-05-31 18:48) [7]

lucifer ©   (31.05.05 18:44) [6]

Мне не нравится крик на форуме. Мне не нравится, что ты ленишься сам искать нужное тебе решение и напрягаешь незнакомых людей.


 
lucifer ©   (2005-05-31 18:55) [8]

Игорь Шевченко - А по твоему форум нужен для чего???
Для того, чтобы такие как ты ("умные") сидели и мешали людям спокойно общаться? А??
Или всё-таки для того, чтобы те, которые что-то не знают, не могут найти по каким-то там причинам (возможно просто возможности нет) нужное им???


 
Игорь Шевченко ©   (2005-05-31 18:58) [9]

lucifer ©   (31.05.05 18:55) [8]

http://ln.com.ua/~openxs/articles/smart-questions-ru.html

Изучай.


 
Profi ©   (2005-05-31 18:58) [10]

Удалено модератором
Примечание: Offtopic



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

Текущий архив: 2005.07.31;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.039 c
3-1118759430
Peter_cc
2005-06-14 18:30
2005.07.31
Изменения в таблице...


4-1117518497
Чапаев
2005-05-31 09:48
2005.07.31
WinExec


3-1119360379
Shura
2005-06-21 17:26
2005.07.31
Ошибка при редактировании записи ClientDataSet


1-1120996920
Толян
2005-07-10 16:02
2005.07.31
Работа и прослушка модема


14-1121173028
Толян
2005-07-12 16:57
2005.07.31
Работа с модемом





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