WM_DEVICECHANGE Uses oder was?

[hedie]

Hallo

Ich möchte die message WM_DEVICECHANGE benutzen doch mein Programm bzw Delphi kennt den "befehl" nicht.

Brauch ich dazu den Spezielle Uses oder so?


mein code sieht so aus:

Delphi-Quellcode:

PROCEDURE TForm1.WMDEVICECHANGE(VAR Message: TMessage);
VAR
s: String;
BEGIN
IF Message.wParam = DBT_DEVICEARRIVAL THEN BEGIN
// Gerät wurde hinzugefügt
CASE PDev_Broadcast_Hdr(
Message.LParam).dbch_devicetype OF
DBT_DEVTYP_OEM : s:='OEM-Gerät';
DBT_DEVTYP_DEVNODE : s:='Geräteknoten';
DBT_DEVTYP_VOLUME : s:='Datenträger';
DBT_DEVTYP_PORT : s:='Seriell/Parallele';
DBT_DEVTYP_NET : s:='Netzwerk';
DBT_DEVTYP_DEVICEINTERFACE: s:='Geräteschnittstelle';
DBT_DEVTYP_HANDLE : s:='Dateisystem';
END;
END ELSE IF Message.wParam =
DBT_DEVICEREMOVECOMPLETE THEN BEGIN
// Gerät wurde entfernt
END;
Message.Result:=1;
END;

danke für die hilfe