Можно через
TForm1 = class(TForm)
.......
Private
procedure WMHotkey( var msg: TWMHotkey ); message WM_HOTKEY;
End;
procedure Form1.FormCreate(Sender: TObject);
Begin
RegisterHotkey(Handle, 1, MOD_CONTROL, ord('W'));
RegisterHotkey(Handle, 2, MOD_CONTROL, ord('P'));
end;
....
procedure TForm1.WMHotkey(var msg: TWMHotkey);
begin
if msg.hotkey = 1 then
begin
ShowWindow("press W");
end;
if msg.hotkey = 2 then
begin
ShowWindow("press P");
end;
end;
|
....
это канечно все кнопки описывать но зато не нужно искать окно в катором ты их нажал...и dll тож не нужно... Для клавиатурного шпиона способ хреновый а вот для быстрых клавиш в сымый раз
+ Никаких проблем с Касперским.