Как отловить открытие/закрытие дверцы CD-ROM?

← →
Вадим Станкевич (2005-06-04 02:14) [0]

Когда-то где-то писали, что должно высылаться сообщение WM_DEVICECHANGE, но... не работает! Дамы и господа, очень прошу, ПОМОГИТЕ!

← →
NeoVariant © (2005-06-04 19:59) [1]

Не знаю, как ты обрабатываешь сообщение WM_DEVICECHANGE, но мой вариант работает.
type TForm1 = class(TForm) private procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE; public end; {...} implementation {$R *.DFM} procedure TForm1.WMDeviceChange(var Msg: TMessage); const DBT_DEVICEARRIVAL = $8000; DBT_DEVICEREMOVECOMPLETE = $8004; var myMsg: string; begin inherited; case Msg.wParam of DBT_DEVICEARRIVAL: myMsg := "CD вставлен"; DBT_DEVICEREMOVECOMPLETE: myMsg := "CD извлечён"; end; ShowMessage(myMsg); end;

← →
rem b (2005-06-04 20:23) [2]

Как отловить - без диска на лотке никак к сожелению

← →
Вадим Станкевич (2005-06-04 23:17) [3]

Большое спасибо всем! Особенно NeoVariant!

← →
Max009 (2005-06-29 18:19) [4]

Можно через библиотеку bass.dll

Как отловить открытие/закрытие дверцы CD-ROM? Найти похожие ветки