Abdocken vom Notebook erkennen

[runner]

Hallo Leute,
gibt es eine Möglichkeit das Abdocken eines Notebooks aus der Dockingstation zu erkennen? Im Windows Startmenü gibt es bei entsprechender Konfiguration über dem Button zum Herunterfahren einen weiteren zum Abdocken. Auf diesen möchte ich reagieren.

[runner]

Push

[alcaeus]

Hi,

ob eine Docking-Station da ist kannst du mit der Funktion CM_Is_Dock_Station_Present verwenden. Beim Docken oder Undocken wird soweit ich weiss nur WM_DEVICECHANGE ausgeloest, dann musst halt abfragen welches Geraet das war und evtl. reagieren.

Greetz
alcaeus

[runner]

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?

[runner]

Hat niemand eine Idee??

[runner]

Push