![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как определить в какой CD-rom вставлен диск, если сидюк не 1 [D7]
Гость © (2004-10-03 19:42:00)Эта процедура отлавливае событие вставки сидирома, а как узнать букву сидука, в который встален диск.
procedure ReceiveMessage (var Msg: TMessage); message M_DEVICECHANGE;
.........
.........
procedure TForm1.ReceiveMessage(var Msg: TMessage);
begin
if Msg.WParam=32772 then
ShowMessage('CD-ROM Open');
if Msg.WParam=32768 then
ShowMessage('CD-ROM Close');
end;
Гость (2004-10-03 20:13:00) [1]а 32768 и 32772 - не сразу понятно что значат
У меня просто был пример такой, я и сам не знал что это.
А ответ я уже нашел
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1091205205&n=5
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1093881744&n=5
GuAV (2004-10-03 20:02:00) [2]32768 это DBT_DEVICEARRIVAL = $8000; // system detected a new device
32772 это DBT_DEVICEREMOVECOMPLETE = $8004; // device is gone
Смотри DBT_DEVICEARRIVAL в MSDN - там есть пример как раз того что нужно.
hint - лучше так и писать:
const
DBT_DEVICEARRIVAL = $8000;
...
case wParam of
DBT_DEVICEARRIVAL: ...
...
а 32768 и 32772 - не сразу понятно что значат
GuAV (2004-10-03 20:01:00) [3]32768 это DBT_DEVICEARRIVAL = $8000; // system detected a new device
32772 это DBT_DEVICEREMOVECOMPLETE = $8004; // device is gone
Смотри DBT_DEVICEARRIVAL в MSDN - там есть пример как раз того что нужно.
hint - лучше так и писать:
const
DBT_DEVICEARRIVAL = $8000;
...
case wParam of
DBT_DEVICEARRIVAL: ...
...
а 32768 и 32772 - не сразу понятно что значат
GuAV (2004-10-03 19:59:00) [4]32768 это DBT_DEVICEARRIVAL = $8000; // system detected a new device
32772 это DBT_DEVICEREMOVECOMPLETE = $8004; // device is gone
Смотри DBT_DEVICEARRIVAL в MSDN - там есть пример как раз того что нужно.
hint - лучше так и писать:
const
DBT_DEVICEARRIVAL = $8000;
...
case wParam of
DBT_DEVICEARRIVAL: ...
...
а 32768 и 32772 - не сразу понятно что значат