Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Systemweite OnKeyDown (https://www.delphipraxis.net/22726-systemweite-onkeydown.html)

faux 22. Mai 2004 10:49


Systemweite OnKeyDown
 
Hallo!

Ich würde gerne ein Programm schreiben, dass meim Drücken der Tasten 176-179 (Lied zurück, Play/Pause, Stop und Lied vor) auf der Tastatur eine Aktion ausführt.

Nur wie kann ich das machen? Denn das soll ja auch funktionieren wenn das Fenster keinen Focus hat.

Danke schon mal...

Matze 22. Mai 2004 10:50

Re: Systemweite OnKeyDown
 
Suche hier mal nach Hier im Forum suchenHook

Vielleicht hilft auch Hier im Forum suchenRegisterHotKey

faux 22. Mai 2004 11:15

Re: Systemweite OnKeyDown
 
Danke, schon mal...

Ich hab jetzt das gefunden und hätte noch eine Frage:

Delphi-Quellcode:
[...]
  private
     procedure WMHotKey(var Msg: TWMHotKey); Message WM_HOTKEY;
[...]

procedure TForm1.Create(Sender: TObject);
begin
  if NOT RegisterHotKey(Form1.Handle, ID, MOD_ALT, Ord('A')) then //ist dann in diesem Fall der Hotky A? Das heißt wenn man A drückt wird die Aktion ausgeführt?? Wenn ja, wie kann ich dann die Taste 177 als Hotkey definieren?
    ShowMessage('Hotkey konnte nicht registriert werden');
[...]

procedure TForm1.WMHotKey(Var Msg: TWMHotkey);
begin
case Msg.IdHotKey of
  ID: begin
[...]

SirThornberry 22. Mai 2004 11:17

Re: Systemweite OnKeyDown
 
indem du nicht "ord('A')" schreibst sondern einfach "177"

faux 22. Mai 2004 11:55

Re: Systemweite OnKeyDown
 
OK, danke hat funktioniert.
Nur eine Frage noch.

Bei einem TService gibts kein Handle, wie kann ich das machen?

c113plpbr 22. Mai 2004 14:21

Re: Systemweite OnKeyDown
 
Es gibt noch die möglichkeit die Tastenanschläge 'mitzuhören' über GetAsyncKeyState und einen Timer ...
(Wollte das nur mal loswerden ^^)

ciao, Philipp


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:45 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz