Pri vložení CD dostane aplikácia správu typu WM_DEVICECHANGE, ktorá informuje o zmene stavu mechaniky.

private
   procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;
 
...
 
procedure TForm1.WMDeviceChange (var Msg: TMessage);
const
  CD_IN  = $8000; 
  CD_OUT = $8004;
begin 
   inherited; 
   case Msg.wParam of
     CD_IN  : Showmessage('CD in'); 
     CD_OUT : Showmessage('CD out');
   end;
end;
Tento článok pridal igo dňa 10.02.2003 o 00:00. Je zaradený v kategóriách Delphi a má priradené tagy . Ak chcete, môžete reagovať na tento článok. Sledovať reakcie na tento článok môžete aj pomocou RSS 2.0.