Скачать: CL | DM;

Как определить в какой CD-rom вставлен диск, если сидюк не 1   Найти похожие ветки 

← →
Гость   (2004-10-03 19:42) [0]

Эта процедура отлавливае событие вставки сидирома, а как узнать букву сидука, в который встален диск.

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;


---

← →
GuAV ©   (2004-10-03 19:59) [1]

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) [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:02) [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 - не сразу понятно что значат

---

← →
Гость   (2004-10-03 20:13) [4]

а 32768 и 32772 - не сразу понятно что значат
У меня просто был пример такой, я и сам не знал что это.
А ответ я уже нашел

http://delphimaster.net/view/4-1091205205/
http://delphimaster.net/view/4-1091205205/

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c