состояние CDRom

[Air]

uses mmsystem;
...
private
  procedure State_CD(var Message: TMessage); message WM_DEVICECHANGE;
...
procedure TForm1.State_CD(var Message: TMessage);
begin
case Message.Msg of
 WM_DEVICECHANGE:
  begin
   If (Message.wParam=$8000) then
    begin
     memo1.Lines.Add('Загрузка диска');
    end;
   if (Message.wParam=$8004) then
    begin
     memo1.Lines.Add('Извлечение диска');
    end;
  end;
end;

end;

В Memo прорисывается то, что и происходит с CD, т.е. загрузка и выгрузка CD.

[joker]

Вообще, изначально мне не нужно было знать есть ли в CD-Romе диск или нет, мне нужно было знать можно ли, пользуясь MMSystem, а не фиг знает каким сишно-драйверским способом, узнать открыт ли сдром или нет, с диском или без - не важно.
Хотя благодарю за способ с ловлей WM_DEVICECHANGE: у меня получился хороший и простой прикол с нечитабельностью и вытаскиванием всех дисков из компьютера, главное если проц ещё и грамотно скрыть, то это спишут на просто глюк компа, радует ещё и то, что компьютер успевает начать взлет при чтении диска, а потом скоропостижно его вытащить.
В общем я ограничился только вытаскиванием дверцы сдрома по нажатию клавишы WIN + C, а вставить диск и задвинуть назад дверцу я оставил пользователям.

[B_N]

А разве MCI_STATUS и MCI_SET с MCI_SET_DOOR_CLOSED и MCI_SET_DOOR_OPEN не подходят?