Hi,
ich hab ein Programm, dass mitbekommen soll, ob ein Hotkey gedrückt gehalten wird.
Wird der Hotkey gedrückt, dann wird diese Code ausgeführt:

markieren

Delphi-Quellcode:

// WM_HOTKEY Hotkey Handler
procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
  if Msg.HotKey = Hotkey_id then
  begin
   //...
  end;
end;

Das Programm soll ein Form so lange anzeigen wie das Hotkey gedrückt gehalten wird.

und noch eine Frage.
Die Struktur von TWMHotKey sieht so aus:

markieren

Delphi-Quellcode:

TWMHotKey = packed record
  Msg: Cardinal;
  HotKey: Longint;
  Unused: Longint;
  Result: Longint;
end;

Aber nirgends ist dokumentiert was man mit Msg, Unused oder Result machen kann :/

Hallo,

Du könntest z.B in einem Timer GetAsyncKeyState aufrufen und überprüfen, ob die Hotkey-Taste noch gedrückt wird.

Zitat von toms:

Hallo,

Du könntest z.B in einem Timer GetAsyncKeyState aufrufen und überprüfen, ob die Hotkey-Taste noch gedrückt wird.

Guter Vorschlag aber es gibt ein Problem bei GetAsyncKeyState:

The return value is zero if a window in another thread or process currently has the keyboard focus.

Mein Form soll wenn es erscheint den Fokus nicht haben weswegen ich es mit der Funktion nicht mehr bestimmen könnte.

Habe im Moment einen Workaround eingebaut:

Wenn der Hotkey gedrückt wird, dann wird ein Timmer aktiviert (800 Millisekunden).
Die Hotkey-Funktion wird wenn man die Taste gedrückt hält oft hintereinander aufgerufen und bei jedem Aufruf, wird der Timer deaktiviert und wieder aktiviert.
So erreicht der Timer nie die Ausführung seines Events da er solange der Hotkey gedrückt ist, zurückgesetzt wird.
Wenn der Hotkey jedoch für ca. 800 Millisekunden nicht berührt wurde, dann wird die Timer-Funktion abgefeuert und das Fenster wieder versteckt.

Zitat von Hedge:

Guter Vorschlag aber es gibt ein Problem bei GetAsyncKeyState:

The return value is zero if a window in another thread or process currently has the keyboard focus.

Bei mir funktioniert es auch, wenn ein Fenster eines anderen Fensters den Focus besitzt.

Zitat von msdn:

Windows NT/2000/XP: The return value is zero for the following cases:

The current desktop is not the active desktop
The foreground thread belongs to another process and the desktop does not allow the hook or the journal record.