Denne artikkelen viser hvordan du kan oppdage når en CD er satt inn /removed.type TForm1 = klasse (TForm) private {felleserklæringer} prosedyre WMDeviceChange (var Msg: TMessage); Meldingen WM_DeviceChange; offentlige {offentlige erklæringer} slutten; prosedyre TForm1.WMDeviceChange (var Msg: TMessage); konst DBT_QUERYCHANGECONFIG = $ 0017; DBT_CONFIGCHANGED = $ 0018; DBT_CONFIGCHANGECANCELED = $ 0019; DBT_DEVICEARRIVAL = $ 8000; DBT_DEVICEQUERYREMOVE = $ 8001; DBT_DEVICEQUERYREMOVEFAILED = $ 8002; DBT_DEVICEREMOVEPENDING = $ 8003; DBT_DEVICEREMOVECOMPLETE = $ 8004; DBT_DEVICETYPESPECIFIC = $ 8005; DBT_USERDEFINED = $ FFFF; Var tmpStr: String; begynne arvet tilfelle Msg.wParam av DBT_DEVICEARRIVAL: tmpStr: = 'CD satt inn !!!'; DBT_DEVICEREMOVECOMPLETE: tmpSTr: = 'CD FJERNET !!!'; slutt; ShowMessage (tmpStr); end; Anmeldelser