VPF::Перехват клавиш - Форум программистов

JJD

Дата 22.1.2008, 23:00 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 22.1.2008

Репутация: нет
Всего: нет

значит мне нужно отловить клавиши у одной програмки, делал хуками, но что непробовал хуки не перехватываеют калвиши только у этой программы, перехватываються все клавиши кроме клавиш с буквами, GetAsyncKeyState по таймеру с небольшой задержкой то т же оезультат фиксируется клавиша только с кодом #0, время их нажатия отлавиливается а код символа всегда #0 smile

, возможно у програмки защита от этого. smile

у меня подозрение что там есть какая-то програмка в фоновом режиме и перехватывает сообщения до того как их получит хук и т.д. мож асемблером как перехватить smile

CompWorm

Дата 22.1.2008, 23:44 (ссылка)

(нет голосов)

Загрузка ...

Допеределыватель

Профиль
Группа: Участник Клуба
Сообщений: 1689
Регистрация: 6.12.2004
Где: /

Репутация: 1
Всего: 31

чувак, а название программки?
а код перехвата клавиш? ... и откуда там таймер?
#0- это может быть конец строки, если кнопурка не определилась или грязь, если не очистил буфер. как в принципе выводится результат работы проги?

--------------------

>>> Indie Games Club! <<<

JJD

Дата 25.1.2008, 08:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 22.1.2008

Репутация: нет
Всего: нет

ну програмка это игра из которой нужно ловить клавиши, а хук точно работает потому что везде работает нормально только из игры неможет отловить сообшение нормально, и ещо фарвол сообщает что там какой то невидимый процес, или она сама себе ловит сообщения и передаёт в основное окно, там хитро как-то оно перехватывает и изменяет smile

Добавлено через 1 минуту и 37 секунд
вот сам код

Код


library Hook;
uses
Windows,
SysUtils;

const KF_UP_MY = $40000000;
var CurrentHook: HHook;
  KeyArray: array[0..19] of char;
  KeyArrayPtr: integer;
  CurFile:text;

function GlobalKeyBoardHook(code: integer; wParam: integer; lParam:
integer): longword; stdcall;
var
i:integer;
begin
if code< 0 then
  begin
    result:=CallNextHookEx(CurrentHook,code,wParam,lparam);
    Exit;
  end;
if ( (lParam and KF_UP_MY )= 0) and (wParam>=65) and (wParam<=90) then
  begin
    KeyArray[KeyArrayPtr]:=char(wParam);
    KeyArrayPtr:=KeyArrayPtr+1;
    if KeyArrayPtr> 19 then
      begin
      for i:=0 to 19 do
      begin
        Assignfile(CurFile,'d:\log.txt');
        if fileexists('d:\log.txt')=false then rewrite(CurFile)
        else Append(CurFile);
        write(Curfile, KeyArray[i]);
        closefile(curfile);
      end;
      KeyArrayPtr:=0;
      end;
  end;
  CallNextHookEx(CurrentHook,code,wParam,lparam);
  result:=0;
end;

procedure SetupGlobalKeyBoardHook;
begin
CurrentHook:=SetWindowsHookEx(WH_KEYBOARD, @GlobalKeyBoardHook,HInstance, 0);
KeyArrayptr:=0;
end;

procedure unhook;
begin
UnhookWindowshookEx(CurrentHook);
end;

exports
SetupGlobalKeyBoardHook, unhook;
begin
end.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »