Delphi-PRAXiS
Seite 1 von 3  1 23      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Globaler HotKey/Shortcut - SysHotKey.pas (https://www.delphipraxis.net/37139-globaler-hotkey-shortcut-syshotkey-pas.html)

Aike 1. Jan 2005 01:23


Globaler HotKey/Shortcut - SysHotKey.pas
 
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 1. Jan 2005 01:39

Re: Globaler HotKey/Shortcut - SysHotKey.pas
 
Hi,

Habe hier mal ein Beispiel geschrieben:

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

Aike 1. Jan 2005 11:18

Re: Globaler HotKey/Shortcut - SysHotKey.pas
 
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 1. Jan 2005 14:57

Re: Globaler HotKey/Shortcut - SysHotKey.pas
 
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 2. Jan 2005 14:57

Re: Globaler HotKey/Shortcut - SysHotKey.pas
 
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 2. Jan 2005 16:21

Re: Globaler HotKey/Shortcut - SysHotKey.pas
 
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 2. Jan 2005 23:19

Re: Globaler HotKey/Shortcut - SysHotKey.pas
 
Ich nutze Delphi 7.
Das mit der Vergabe der IDs ist klar :wink:

Christian Seehase 3. Jan 2005 00:18

Re: Globaler HotKey/Shortcut - SysHotKey.pas
 
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- 3. Jan 2005 23:42

Re: Globaler HotKey/Shortcut - SysHotKey.pas
 
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 9. Jan 2005 16:22

Re: Globaler HotKey/Shortcut - SysHotKey.pas
 
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)?


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:31 Uhr.
Seite 1 von 3  1 23      

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