Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.03;
Скачать: CL | DM;

Вниз

hook на нажатие клавишь, ошибка   Найти похожие ветки 

 
SkyN ©   (2003-09-01 13:01) [0]

Ставлю хук на нажатие клавишь.
Если активным является не окно моего преложения, то возникает системная ошибка (1400): "неверный дескриптор окна", и похоже что при каждом нажатии клавишь гибнет explorer.


var
HookHandle: HHook = 0;

Function KeyboardHook(Code: Integer; ParamW: WPARAM; ParamL: LPARAM): LRESULT;stdcall;
Begin
If Code IN [HC_ACTION, HC_NOREMOVE] Then
Form1.Memo1.Lines.Add(IntToStr(ParamW)+"//"+IntToStr(Code));
Result := CallNextHookEx(HookHandle, Code, ParamW, ParamL);
End;

procedure TForm1.FormCreate(Sender: TObject);
begin
HookHandle:=SetWindowsHookEx(WH_KEYBOARD, @KeyboardHook, HInstance, 0);
if HookHandle=0 then Application.MessageBox("Не поставлен хук","Ошибка")
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
UnhookWindowsHookEx(HookHandle);
end;


 
SkyN ©   (2003-09-01 14:37) [1]

помогите плиз


 
NAlexey ©   (2003-09-01 15:04) [2]

Третий параметр в SetWindowsHookEx который у тебя HInstance сделай его - 0. Четвертый параметр сделай GetCurrentThreadId.


 
Song ©   (2003-09-01 15:19) [3]

SetWindowsHookEx(WH_KEYBOARD, @KeyboardHook, HInstance, 0); - это ты пытаешься сделать глобальную ловушку, тогда как call-back функция хука у тебя в программе.



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

Текущий архив: 2003.11.03;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
3-8322
Марат
2003-10-13 09:05
2003.11.03
SQL запросы


8-8548
J.
2003-07-01 21:30
2003.11.03
1.Desktop 2.Image


7-8686
PaHaN
2003-08-23 15:49
2003.11.03
Windows XP


6-8572
XeON
2003-09-07 09:45
2003.11.03
Сокеты


14-8587
vgm-3000
2003-10-15 03:54
2003.11.03
Что лучше VB или Delphi?