Вниз
Скачать: CL | DM;

Не получается правильно поставить Hook на нажатие клавиши...   Найти похожие ветки 

← →
@!!ex ©   (2008-09-24 15:13) [0]

library nw;
uses Windows, Messages;

var
 SH:HHOOK;

function MsgProc(code:DWORD;wParam,lparam:DWORD):DWORD;stdcall;
begin
   MessageBox(0,PChar(chr(wParam)),"",0);
 CallNextHookEx(SH,code,wParam,lparam);
end;

begin
 SH:=SetWindowsHookEx(WH_KEYBOARD,@MsgProc,0,GetCurrentThread());
end.

Задача в том, чтобы ловить нажатия клавиш и вместо указанных клавиш пересылать свои. Например, если пользователь нажал L прога должна думать, что нажали F и так далее...
как сделать? и почему не работает мой хук?


← →
Palladin ©   (2008-09-24 15:21) [1]

SetWindowsHookEx(WH_KEYBOARD,@MsgProc,HInstance,0);


← →
vegarulez ©   (2008-09-24 17:37) [2]

http://delphimaster.net/view/2-1222147865/


← →
Palladin ©   (2008-09-24 17:51) [3]

и что? при чем здесь твои хоткеи? там хуками и не пахнет


← →
Leonid Troyanovsky ©   (2008-09-24 19:47) [4]


> @!!ex ©   (24.09.08 15:13)  

> begin
>  SH:=SetWindowsHookEx(WH_KEYBOARD,@MsgProc,0,GetCurrentThread());
> end.

Поубивал бы.

> Palladin ©   (24.09.08 15:21) [1]

> SetWindowsHookEx(WH_KEYBOARD,@MsgProc,HInstance,0);

А ты добрый :)

--
Regards, LVT.


← →
Palladin ©   (2008-09-24 21:53) [5]

тока када выпью! :)



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c
2-1221997643
Team
2008-09-21 15:47
2008.11.02
OnKeyUp, OnKeyPress


1-1201897002
elserpiente
2008-02-01 23:16
2008.11.02
ListView


1-1202119964
МистерТ
2008-02-04 13:12
2008.11.02
Как в Delphi10Lite переключить ключ компиляции ?


11-1193854855
mdw
2007-10-31 21:20
2008.11.02
Lazarus+WinCE


6-1194405257
Lemon
2007-11-07 06:14
2008.11.02
Программно закрыть порт




   Наверх