Globaler HotKey/Shortcut - SysHotKey.pas

[-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