Главная страница
    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.054 c
1-1121025994
mmms
2005-07-11 00:06
2005.07.31
Как "распутать" обратный путь в TTreeView у TTreeNode


14-1121158662
alless
2005-07-12 12:57
2005.07.31
Microsoft = 666?


14-1120620320
dr Tr0jan
2005-07-06 07:25
2005.07.31
Куда сходить в Москве?


3-1116476782
Homa_Programer
2005-05-19 08:26
2005.07.31
MS SQL Client -> MS SQL Server


14-1121146430
cyborg
2005-07-12 09:33
2005.07.31
Бета-тестирование Longhorn началось





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