Danke alcaeus für deine Antwort
Ich habs mal probiert, scheint irgendwie aber nicht richtig zu funktionieren. Immer wenn ich eine der Funktionen CM_Request_Eject_PC oder CM_Is_Dock_Station_Present aufrufe bekomme ich eine Zugriffsverletzung. Ich benutze die
unit CfgMgr32 der neuesten JediVCLs.
Hier mal der Code
Delphi-Quellcode:
procedure TForm1.WMDeviceChange(var Message: TMessage);
begin
Inherited;
if CM_Request_Eject_PC = CR_Success then
begin
lb.Items.Add('System undocked at '+TimeToStr(now));
isDocked := false;
end;
if (CM_Is_Dock_Station_Present(isDocked) = CR_Success) and isDocked then
begin
lb.Items.Add('System docked at '+TimeToStr(now));
isDocked := true;
end;
end;
Weiss jemand warum das so ist?