Globaler HotKey/Shortcut - SysHotKey.pas

[Aike]

Hallöchen,

ich wüsste gerne, wie ich einen globalen HotKey erzeugen und festlegen kann. Dani hat mir in diesem Thread schon geholfen, aber es fehlt noch der letzte Tick zum Erstellen des HotKeys. Außerdem wollte ich für andere Programmierer, die sicherlich auch dieses Problem haben werden, einen neuen Thread eröffnen.

Ich bin jetzt eigentlich so weit, dass ich eine nicht-sichtbare, platzierbare Komponente namens HotKey der Klasse THotKEy erstellen kann. Allerdings gibt es bei der kein "OnHotKey"-Event oder ähnliches. Ich bin mir nicht sicher, ob ich die SysHotKey-Komponente richtig installiert habe und wäre froh, wenn man mir nochmal schildern würde, wie ich da vorzugehen habe :stupid:

Liebe Grüße und willkommen im 2005 :zwinker:

Aike

[toms]

Hi,

Habe hier mal ein Beispiel geschrieben:

http://www.swissdelphicenter.ch/de/showcode.php?id=147

[Aike]

Wenn ich das verwende, brauche ich die SysHotKey.pas wohl gar nicht? Ist ja witzig :) Werde ich gleich ausprobieren.

Hm, in den Kommentaren steht, dass das nicht in Spielen funktioniert. Stimmt das? Denn eigentlich brauche ich die HotKeys für mein Game :gruebel:

Außerdem funktioniert Msg.HotKey nicht. Da kommt der Fehler "Undefinierter Bezeichner". Msg hat nur die Eigenschaften "Msg, IdHotKey, Modifiers, VirtKey". Aber ansonsten funktioniert schonmal die Zuweisung von HotKeys. Wenn ich Strg+A zuweise, wird die "Komplettmarkierung" außer Kraft gesetzt. Ich hab jetzt einfach zum Test mal Msg.VirtKey benutzt ;)

[Christian Seehase]

Moin toms,

gemäss Doku sollte man allerdings bei einer Anwendung IDs im Bereich $0000 bis $BFFF verwenden, und bei DLLs $C000 bis $FFFF.
GlobalAddAtom liefert allerdings Werte ab $C000 zurück, weshalb der Aufruf für eine ID bei RegisterHotKey nur aus einer DLL heraus erfolgen sollte, nicht aus einer Anwendung.
Vielleicht ist das auch die Ursache dafür, dass es aus einem Spiel heraus nicht funktioniert, denn dieses Phänomen konnte ich nicht beobachten (bei ID < $C000, aus einer Anwendung heraus).
Ausserdem sollte man noch darauf hinweisen, dass man bei GlobalAddAtom eindeutige Strings verwenden sollte. Wird ein String übergeben, der bereits in der Atomtable steht, wird ja wieder dessen Wert zurückgegeben. Das ist hier zwar unkritisch, sollte m.E. aber doch erwähnt werden.

[Aike]

Das hilft mir aber nicht so wirklich weiter :angel2:

Dieser HotKey funktioniert nicht aus einem Spiel heraus? Das wäre aber schade. Aber vielleicht bei meinem ja doch :oops: Ich würd' 's gerne mal ausprobieren, aber mir fehlt die Eigenschaft ".Hotkey" :?:

[Christian Seehase]

Moin Aike,

nimm' doch das was toms gepostet hat mal.
Du müsstest nur die IDs selber vergeben (beliebig, Wert kleiner $C000), und deshalb dann, natürlich, auch die GlobalAddAtom und GlobalDeleteAtom Zeilen weglassen.


[EDIT]

Zitat:

Zitat von Aike

aber mir fehlt die Eigenschaft ".Hotkey"

:shock:

Welche Delphi Version hast Du?
[/EDIT]

[Aike]

Ich nutze Delphi 7.
Das mit der Vergabe der IDs ist klar :wink:

[Christian Seehase]

Moin Aike,

ich hab' deshalb gefragt, weil bei mir TWMHotKey das Feld Hotkey beinhaltet (bei D7 PE).

Das es übrigens mit einem registrierte Hotkey aus einem Spiel heraus grundsätzlich nicht funktioniert, kann nicht sein, denn bei mir Funktioniert es ;-)

[-Volle-]

also ich muss sagen, dass ich shcon sau oft alle moegliche loesungsvorschlaege fuer Hotkeys gefunden hab, aber einer, den ich von irgend nem kollegen hab, der is einfach der beste...

Bitte nicht boese sein, sollte der code irgendjemandem "gehoeren" ich weiss einfach nciht mehr woher ich ihn hab :>

Delphi-Quellcode:

private
    { Private-Deklarationen }
    procedure MyWindowProc(var Message:TMessage);

Delphi-Quellcode:

type HkI=Record Key:tShortcut; Modify:Cardinal; Interval:Word; Notify:String; end;

var HotKeys:array[0..2]of HKI;

Delphi-Quellcode:

procedure TForm1.MyWindowProc(var Message:TMessage);
var notify:string;
begin
notify:='';
   if Message.Msg=WM_Hotkey Then begin
     SetTimer(Self.Handle,Message.WParam,Hotkeys[Message.WParam-$BFF0].Interval*1000,nil);
     SendMessage(GetActiveWindow,WM_KEYDOWN,Hotkeys[Message.WParam-$BFF0].Modify,Hotkeys[Message.WParam-$BFF0].Key);
     SendMessage(GetActiveWindow,WM_KEYUP,Hotkeys[Message.WParam-$BFF0].Modify,Hotkeys[Message.WParam-$BFF0].Key);
     notify:='';
   end
   else if Message.Msg=WM_TIMER Then Begin
    if HotKeys[Message.WParam-$BFF0].Notify<>'' Then
     begin
      notify:='';
      notify:=HotKeys[Message.WParam-$BFF0].Notify;
      end;
    KillTimer(Self.Handle,Message.WParam);
   end
   else WndProc(Message);
if sametext(notify,'bla') then
 Showmessage('Taste gedrückt');

notify:='';
end;

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
WindowProc:=MyWindowProc;
Hotkeys[0].Key:=Lo(45); // Ascii Code der zu drueckenden taste
Hotkeys[0].Modify:=0;
inc(Hotkeys[0].Modify,MOD_Shift); // Ob Shift , Alt, STRG gedrueckt sein soll
Hotkeys[0].Notify:='bla'; // die msg, die beim tastendruck uebergeben wird
RegisterHotKey(Self.Handle,$BFF0+0,Hotkeys[0].Modify,Hotkeys[0].Key);
end;

Delphi-Quellcode:

procedure TForm1.FormDestroy(Sender: TObject);
begin
UnregisterHotKey(Self.Handle,$BFF0+0);
end;

diese Version geht bei mir, ohen Probleme aus spielen heraus ... ich benutze sie z.B. fuer Trainer vfuer versch. Spiele

[Aike]

Wow! Das sieht wirklich sehr gut aus und funktioniert gut.
Aber wie, wenn überhaqupt, kann ich SHIFT+ALT benutzen?
inc(Hotkeys[1].Modify,MOD_Shift+MOD_Alt)?

[-Volle-]

ne ich wuerd sagen so:

Delphi-Quellcode:

WindowProc:=MyWindowProc;
Hotkeys[0].Key:=Lo(x); // Ascii Code von Alt
Hotkeys[0].Modify:=0;
inc(Hotkeys[0].Modify,MOD_Shift); // Ob Shift , Alt, STRG gedrueckt sein soll

aber mal ne gegenfrage: wann drueckst du shift+alt? aber zu dem beispiel hab ich leider keine ahnung ... :> tut mir sry

[Aike]

Ich möchte zum Beispiel "Shift+Alt+L" als HotKey benutzen :stupid:

[-Volle-]

uh, das is schwer und entzieht sich meiner kenntnis. ... sry, entweder du probierst es aus, so wie dus gemint hast ( MOD_CHIFT + MOD_ALT) ... oder ... ka...

warum wilslt du so einen schweren hotkey benutzen ?

[Aike]

Na ja, ich will meinem User eine große Vielfalt bieten :-)

[Aike]

Ja, hm, das Problem ist, dass ich nicht jedem HotKey eine eigene Prozedur zum Ausführen mitgeben kann. Es wäre schön, wenn ich 'ne Variable übergeben könnte :oops:

[Jelly]

Hallo,

interessiert hab ich das hier verfolgt, aber irgendwie krieg ich das nicht ans Laufen. Ich hab hier mal den gesamten Code nochmals zusammengefasst:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;


type
  HkI=Record
    Key:tShortcut;
    Modify:Cardinal;
    Interval:Word;
    Notify:String;
  end ;

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure MyWindowProc(var Message:TMessage);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  HotKeys:array[0..2]of HKI;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.MyWindowProc(var Message: TMessage);
var notify:string;
begin
   notify:='';
   if Message.Msg=WM_Hotkey Then begin
     SetTimer(Self.Handle,Message.WParam,Hotkeys[Message.WParam-$BFF0].Interval*1000,nil);
     SendMessage(GetActiveWindow,WM_KEYDOWN,Hotkeys[Message.WParam-$BFF0].Modify,Hotkeys[Message.WParam-$BFF0].Key);
     SendMessage(GetActiveWindow,WM_KEYUP,Hotkeys[Message.WParam-$BFF0].Modify,Hotkeys[Message.WParam-$BFF0].Key);
     notify:='';
   end
   else if Message.Msg=WM_TIMER Then Begin
    if HotKeys[Message.WParam-$BFF0].Notify<>'' Then
     begin
      notify:='';
      notify:=HotKeys[Message.WParam-$BFF0].Notify;
      end;
    KillTimer(Self.Handle,Message.WParam);
   end
   else WndProc(Message);
   if sametext(notify,'bla') then
   Showmessage('Taste gedrückt');

   notify:='';
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
      WindowProc:=MyWindowProc;
      Hotkeys[0].Key:=Lo(97); // Ascii Code der zu drueckenden taste, bsp 'a'
      Hotkeys[0].Modify:=0;
      inc(Hotkeys[0].Modify,MOD_CONTROL); // Ob Shift , Alt, STRG gedrueckt sein soll
      Hotkeys[0].Notify:='bla'; // die msg, die beim tastendruck uebergeben wird
      RegisterHotKey(Self.Handle,$BFF0+0,Hotkeys[0].Modify,Hotkeys[0].Key);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
     UnregisterHotKey(Self.Handle,$BFF0+0); 

end;

end.

Der Teil in MyWindowProc

Delphi-Quellcode:

if Message.Msg = WM_HotKey then begin

wird nie ausgeführt?

Hab ich da was vergessen :wiejetzt:

[Jelly]

OK, jetzt klappts. Ich hatte als Ascii Code 97 definiert (a), statte 65 (A). Das klappt jetzt also.

Weiß einer wie ich die F-Tasten definieren kann?

[-Volle-]

mach mal ein edit und schreib in die OnKeydown event das hier rein:

Delphi-Quellcode:

showmessage(inttostr(key));

dann kommt ein popup mit dem ascii-code ... F1 is z.B. 112 wenn ich mich nich irre... :>

@ Aike. .. du kannst doch den parameter "notify" aendern ...

bei jeder taste ne andere notify-msg, dann kannst du damit arbeiten ... ( oder hab ichs jetzt verrafft ?)

[Aike]

Das mit Notify klappt ganz gut!

Aber irgendwie kann ich nur einen HotKey definieren. Wenn ich ...

Delphi-Quellcode:

begin
  WindowProc:=MyWindowProc;
  Hotkeys[1].Key:=Lo(65); // Ascii Code der zu drueckenden taste
  Hotkeys[1].Modify:=0;
  inc(Hotkeys[1].Modify,MOD_Alt); // Ob Shift , Alt, STRG gedrueckt sein soll
  Hotkeys[1].Notify:='string'; // die msg, die beim tastendruck uebergeben wird
  RegisterHotKey(Self.Handle,$BFF0+0,Hotkeys[1].Modify,Hotkeys[1].Key);
end;

das so mache, passiert einfach gar nix :(

[-Volle-]

RegisterHotKey(Self.Handle,$BFF0+1,Hotkeys[1].Modify,Hotkeys[1].Key);

so düerfte es gehen

[Aike]

Wie ich euch liebe! :dp:

Ah ja, kann ich irgendwie zählen, wie viele HotKeys registriert sind?

[-Volle-]

sry, weiss ich nich, aber lass doch inefach nen zaehler mit ner globalen integer var mitzaehlen ... jedes mal, wenn du nen hotkey machst dann zahl um 1 groesser..