So definierst du Hooks:
1) Lege eine eigene Prozedur an:
Delphi-Quelltext
1:
| procedure Taste (Var Druck: TWMHotKey); Message WM_HOTKEY; |
2) Lege eine Konstante an:
Delphi-Quelltext
3) Registriere deinen Hotkey in der FormCreate
Delphi-Quelltext
1:
2:
3:
4:
| procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(TForm1.Handle, Hugo, 0, VK_SPACE);
end; |
4) Belege deine Prozedur mit Befehlen
Delphi-Quelltext
1:
2:
3:
4:
| procedure TForm1.Taste(Var Druck: TWMHotKey);
begin
If Druck.HotKey=Hugo Then ... Else ...;
end; |
5) Gebe den Speicher für den Hotkey in der FormDestroy wieder frei
Delphi-Quelltext
1:
2:
3:
4:
| procedure TForm1.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey(TForm1.Handle, Hugo);
end; |
Dann müßte das eigentlich funktionieren. Eine Liste der virtuellen Codes findest du in der Delphi-Hilfe unter dem Stichwort
Virtuelle Tastencodes. Hier benutzen wir die Taste "VK_SPACE" -> Leertaste
Hoffe, es hilft dir..
///edit -> Die Taste "ENTF" hat den Hotkey
VK_DELETE
