Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: WinAPI и системное программирование > Ловушка сообшений


Автор: Proger101 30.6.2007, 18:26
Уважаемые системные прграммисты, простите за(возможно) ламерский вопрос.
Я хочу перехватывать все клавиши для всех приложений и для этого ставлю ловушку сообшиний:

Код


////////////////////////////////
function Key_Hook(code : integer; wParam: Integer; 

lParam : Integer): Integer; stdcall;
begin
  if (code <> HC_ACTION)then
  begin
    Append(ScnFile);
    WriteLn(ScnFile, '<KeyPresed>');
    Writeln(ScnFile, '  ', wParam);
    WriteLn(ScnFile, '<KeyPresed/>');
    CloseFile(ScnFile);

  end;

  CallNextHookEx(HKey, Code, wParam, lParam);
end;

function StartHookKey(Path : String) : hHook;
begin
  // Инициализация файловой переменной
  AssignFile(ScnFile, Path);
  // Установка ловушки
  HKey := SetWindowsHookEx(WH_KEYBOARD, @Key_Hook, 

hInstance, 0);
  Result := HKey;
  if Result = 0 then  // Ловушка не установилась
    ShowMessage('Ошибка');

end;

procedure RemoveHookKey(var h : hHook);
begin
  if h <> 0 then
  begin
    UnhookWindowsHookEx(h);
    h := 0;
  end;
end;


Вызов процедур из основного модуля:
Код

/////////////////////////////////////////////////////////
procedure TForm1.MRecExecute(Sender: TObject);
begin
  Rewrite(ScnFile);
  CloseFile(ScnFile);
  HookKey := StartHookKey(ScnPath);
end;


procedure TForm1.MStopExecute(Sender: TObject);
begin
  RemoveHookKey(HookKey);
end;


Ловушка должна перехватывать нажатие всех клавиш и записывать в файл коды нажатых клавиш.
Но проблема в том что callback функция даже не вызывается!!!!!

Помогите пожалуста.

Заранее благодарен.

Автор: Ak47black 30.6.2007, 23:44
Если не хочешь писать весь код возьми этот бесплатный.
Если хочешь сам написать то сорри, может тебе кто другой пояснить.

Автор: ilyalyu 2.7.2007, 22:26
При написании такого приложение есть два момента:

1. Hook надо создавать не внутри приложения, а в отдельной DLL.

2. Информацию от DLL к приложению надо передавать с помощью сообщений (windows messages), а не с помощью callback functions.

Вот как это примерно выглядит:

Код

library hooks;

uses SysUtils, Windows;

{$R *.res}

var HookKB: HHook = 0;
    HookMsg: UINT = 0;

function HookProcKB(nCode: Integer; MsgID: WParam; Data: LParam): LResult; stdcall;
begin
  PostMessage(FindWindow('TForm', nil), HookMsg, SomeData, SomeData);
  // TForm - это та форма, в которую должно передаваться сообщение (конечно, это должно быть какое-нибудь более сложное название)
  Result := CallNextHookEx(HookKB, nCode, MsgID, Data)
end;

procedure Hook; stdcall;
begin
  if HookKB = 0 then HookKB := SetWindowsHookEx(WH_KEYBOARD, @HookProcKB, HInstance, 0);
end;

procedure Unhook; stdcall;
begin
  if HookKB <> 0 then UnhookWindowsHookEx(HookKB);
  HookKB := 0;
end;

exports Hook, Unhook;

begin
end.

Автор: mr.Anderson 2.7.2007, 22:32
Цитата
Hook надо создавать не внутри приложения, а в отдельной DLL.

Далеко не факт. Могу предоставить функцию для перехвата нажатий любых клавиш, которую пишем прямо в модуле программы, безо всяких DLL, что очень удобно.

А вообще, все зависит от задачи. Если требуется отловить клавиши только в пределах формы приложения, то вполне хватит переопределения AppMsg.
Код

type
 Form1 = class( ... )
  ...
 public
  procedure AppMsg( var Msg: TMsg; var Handle: Boolean ); virtual;

Автор: Ak47black 2.7.2007, 23:55
Цитата

Далеко не факт. Могу предоставить функцию для перехвата нажатий любых клавиш, которую пишем прямо в модуле программы, безо всяких DLL, что очень удобно.

Интересно как если можно, я вроде думал всегда что надо через Dll перехватывать ( или дрова писать, там что угодно перехватить тогда можно) так как по идее простому окну от всех окон сообщения не приходят.
И действует-ли твой метод на виндах от 98 по vista?

Автор: MetalFan 3.7.2007, 06:41
Цитата(Ak47black @  3.7.2007,  00:55 Найти цитируемый пост)
Интересно как если можно

есть понятие локального и глобального хука. локальный действует - в пределах приложения.

Автор: W4FhLF 3.7.2007, 09:37
Цитата(MetalFan @  3.7.2007,  06:41 Найти цитируемый пост)
есть понятие локального и глобального хука. локальный действует - в пределах приложения.


Но задача сформулирована:

Цитата(Proger101 @  30.6.2007,  18:26 Найти цитируемый пост)
Я хочу перехватывать все клавиши для всех приложений


Поэтому мне тоже интересно как с помощью системного механизма хуков mr.Anderson без DLL внедряется во все приложения. 

Автор: mr.Anderson 3.7.2007, 09:52
Действует ли на Vista - понятия не имею, с ней никогда не работал. А вот на 98 работать должно вполне.

Насчет пределов приложения - я специально проверил, работает в пределах всей системы, даже если окно программы свернуто и неактивно.

Итак, поехали. В главном модуле программы рисуем функцию:
Код

function KeyboardProc( nCode: Integer; wParam, lParam: DWORD ): Integer; stdcall;
type
 PKBDLLHOOKSTRUCT = ^KBDLLHOOKSTRUCT;
 KBDLLHOOKSTRUCT  = record
  vkCode      : DWORD;
  scanCode    : DWORD;
  flags       : DWORD;
  time        : DWORD;
  dwExtraInfo : Pointer;
 end;
const
 KeyStroke : BOOL = FALSE;
 LLKHF_ALTDOWN    = KF_ALTDOWN shr 8;
var
 p : PKBDLLHOOKSTRUCT;
begin
 //функция перехватывает нажатие всех системных клавиш, включая ALT + F4, CTRL + ESC, WIN и так далее
 if( nCode < 0 ) then
  CallNextHookEx( hook, nCode, wParam, lParam );

 if( nCode = HC_ACTION ) then
  case wParam of
   WM_KEYDOWN, WM_SYSKEYDOWN, WM_KEYUP, WM_SYSKEYUP:
   begin
    p         := PKBDLLHOOKSTRUCT( wParam );
    KeyStroke := ( ( p.vkCode = VK_LWIN ) or ( p.vkCode = VK_RWIN ) ) or
                 ( ( p.vkCode = VK_TAB ) and ( ( p.flags and LLKHF_ALTDOWN ) <> 0 ) or
                 ( ( p.vkCode = VK_ESCAPE ) and ( ( p.flags and LLKHF_ALTDOWN ) <> 0 ) or
                 ( ( p.vkCode = VK_ESCAPE ) and ( ( GetKeyState( VK_CONTROL ) and $8000 ) <> 0 ) ) or
                 ( ( p.vkCode = VK_F4 ) and ( ( p.flags and LLKHF_ALTDOWN ) <> 0 ) );
   end; // case item
  end; // case

  if( KeyStroke ) then
   Result := 1; //currect action is not allowed
  else Result := CallNextHookEx( hook, nCode, wParam, lParam );
end;

Объявляем глобальную переменную:
Код

hook : HHOOK;

Затем в OnCreate формы ставим хук:
Код

hook := SetWindowsHookEx( WH_KEYBOARD_LL, @KeyboardProc, GetModuleHandle( nil ), 0 )

На OnClose формы:
Код

UnhookWindowsHookEx( hook );

Запускаем и радуемся.

Автор: Rennigth 3.7.2007, 10:20
Цитата(mr.Anderson @  3.7.2007,  09:52 Найти цитируемый пост)
А вот на 98 работать должно вполне.

 smile  

Автор: mr.Anderson 3.7.2007, 10:36
Rennigth, а почему нет? Я не проверял, правда, дома только XP есть, но почему не должно работать-то? Или там системы хуков нет?

Автор: W4FhLF 3.7.2007, 11:00
http://msdn2.microsoft.com/en-us/library/ms644985.aspx

Автор: Ak47black 3.7.2007, 11:40
MetalFan, а почему тогда вообще хуком отлавливать если только из своего приложения нужно.
Тут просто можно написать свою процедуру обработки окна которая ловит WM_CHAR и хуков не каких ненужно.

mr.Anderson, 
Мда интересно не думал что так можно сделать.
Но я лучше буду использовать с dll чтобы не промахнуться на другой винде.

Автор: W4FhLF 3.7.2007, 12:27
Цитата(Ak47black @  3.7.2007,  11:40 Найти цитируемый пост)
Но я лучше буду использовать с dll чтобы не промахнуться на другой винде.


MSDN читаем, DLL тут не причём, это не случайность, а известная feature. 

from link:

Цитата

Minimum operating systems    Windows NT 4.0 SP3

Автор: mr.Anderson 4.7.2007, 16:03
W4FhLF, вот я как раз хочу спросить, раз так, то какая разница - в DLL или в программе ставить хук? Все равно ниже чем на XP не сработает?

Автор: dumb 4.7.2007, 16:27
Цитата(mr.Anderson @  4.7.2007,  17:03 Найти цитируемый пост)
хочу спросить, раз так, то какая разница - в DLL или в программе ставить хук?

для всех глобально устанавливаемых хуков(кроме _LL - WH_KEYBOARD_LL/WH_MOUSE_LL) процедуры обработки должны быть помещены в dll. система подгружает эту dll в адресные пространства всех оконных приложений для того, чтобы вызывать процедуру обработки хука в контексте генерирующего событие приложения.

для _LL-хуков это не требуется, так как при вызове хук-процедуры происходит переключение в контекст установившего хук приложения(это доходчиво написано в ссылке, приведенной W4FhLFом).

для локального хука dll, естественно, тоже не нужна.

Цитата(mr.Anderson @  4.7.2007,  17:03 Найти цитируемый пост)
Все равно ниже чем на XP не сработает? 

а это ты откуда выкопал?  smile

Автор: Ak47black 4.7.2007, 18:21
Цитата

Minimum operating systems    Windows NT 4.0 SP3

user posted image
Тут по идее вроде только в 95 непойдёт(если не говорить о предыдуших которыми некто непользуеться почти).
Если что нетак поправте.

Автор: W4FhLF 4.7.2007, 18:33
Цитата(Ak47black @  4.7.2007,  18:21 Найти цитируемый пост)
Тут по идее вроде только в 95 непойдёт


9x это вообще другая линейка, это ведь даже на приведённом тобою рисунке видноsmile

Автор: Ak47black 4.7.2007, 18:37
W4FhLF, ага понятно.
А кстати через dll везде пойдёт?

Автор: dumb 5.7.2007, 01:46
Цитата(Ak47black @  4.7.2007,  19:37 Найти цитируемый пост)
А кстати через dll везде пойдёт?

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

Автор: mr.Anderson 5.7.2007, 20:51
Цитата
не важно

О! А раз так, есть ли вообще возможность заблокировать клаву в системах 95/98 ? Ведь для установки хука я пока встречал только SetWindowsHookEx, а ей нужно NT.

Автор: dumb 7.7.2007, 00:56
Цитата(mr.Anderson @  5.7.2007,  21:51 Найти цитируемый пост)
А раз так, есть ли вообще возможность заблокировать клаву в системах 95/98 ?

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

Цитата(mr.Anderson @  5.7.2007,  21:51 Найти цитируемый пост)
Ведь для установки хука я пока встречал только SetWindowsHookEx, а ей нужно NT.

буквы читать умеем? - следуем по http://msdn2.microsoft.com/en-us/library/ms644990.aspx, мотаем в конец и читаем буквы.

Автор: hub00 2.6.2008, 15:49
Здравствуйте, помогите решить задачу.

Установил  глобальный hook = SetWindowsHookEx(WH_CALLWNDPROCRET, @HookProc, HInstance, 0);
Необходимо поймать сообщение WM_SETCURSOR. 
После запуска программы вылетает "Ошибка чтения памяти и её адрес"
Однако если использовать hook WH_JOURNALRECORD то программа запускается и такие сообщения как: 
WM_MOUSEMOVE, WM_LBUTTONDOWN,  WM_LBUTTONUP, WM_RBUTTONDOWN, WM_RBUTTONUP,  WM_KEYUP, WM_KEYDOWN
ловятся.
А вот WM_SETCURSOR Нет.
Может я что-то не указываю? Или это сообщение нужно обрабатывать как-то?

Спасибо.

Листинг :

var
  HookHandle: hHook;

function HookProc(Code: integer; WParam: word; LParam: Longint): Longint; stdcall;
var
  msg: PEVENTMSG;
begin
  if Code >= 0 then begin
    result := 0;
    msg := Pointer(LParam);
    with Form1 do
      case msg.message of

      WM_SETCURSOR : Label1.Caption:='Сообщение получено.';

      end;
  end else
    result := CallNextHookEx(HookHandle, code, WParam, LParam);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  HookHandle := SetWindowsHookEx(WH_CALLWNDPROCRET, @HookProc, HInstance, 0);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if HookHandle <> 0 then
    UnhookWindowsHookEx(HookHandle);
end;

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)