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