Problem mit keybd_event in Verbindung mit Hotkey

[Bomberbb]

Habe nun eine Lösung gefunden:

Delphi-Quellcode:

Procedure TfrmKeyMakro.WMHotKey(Var Message: TMessage);
Begin
  If Message.wParam = HotKeyID Then
  Begin
    SetActiveWindow(GetForegroundWindow);
    Sleep(150);

    keybd_event(55, Lo(MapVirtualKey(55, 0)), 0, 0);
    keybd_event(55, Lo(MapVirtualKey(55, 0)), KEYEVENTF_KEYUP, 0);
  End;
End;

So funzt es. Es scheint also so, als würde das aktive Fenster deaktiviert.

Nun muss ich nur noch hoffen, dass das slepp(150) in allen Fällen ausreicht...