Главная страница
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.49 MB
Время: 0.052 c
3-1119428469
Sigetta
2005-06-22 12:21
2005.07.31
UNION


1-1121242644
granni
2005-07-13 12:17
2005.07.31
передача параметров по ссылке


14-1120299972
kaif
2005-07-02 14:26
2005.07.31
Просто халтура


6-1113996842
MetalFan
2005-04-20 15:34
2005.07.31
Shutdown по сети


4-1114684149
MadGhost
2005-04-28 14:29
2005.07.31
Как узнать какие программы на компьютере установлены? и как вывес