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)?