Mega Code Archive

 

Categories / Delphi / Hardware

 

CD InOut

Title: CD In/Out? Question: How can I understand CD In/Out? Answer: private procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE; . . . procedure TForm1.WMDeviceChange (var Msg: TMessage); const CD_IN=$8000; CD_OUT=$8004; var Mesaj:String; begin inherited; case Msg.wParam of CD_IN:Mesaj:='CD-In'; CD_OUT:Mesaj:='CD-Out'; end; end;