Erkennung von cd einfügen / Auswerfen

Erkennung von cd einfügen / Auswerfen

Erkennung von cd einfügen / Auswerfen : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Dieser Artikel zeigt, wie zu erkennen, wenn eine CD eingelegt / entfernt hat.
Typ
TForm1 = class(TForm)
Private
{Private Deklarationen}
Procedure WMDeviceChange (Var Msg: TMessage); Nachricht WM_DeviceChange;
öffentliche
{Public Deklarationen}
Ende;

Procedure TForm1.WMDeviceChange (Var Msg: TMessage);
const
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;
beginnen
vererbt
RS Msg.wParam der
DBT_DEVICEARRIVAL: TmpStr: = 'CD eingelegt!!!';
DBT_DEVICEREMOVECOMPLETE: TmpSTr: = 'CD entfernt!!!';
Ende;
ShowMessage(tmpStr);
Ende;