Перехват WM_TIMER - Win Api

Proof · 19.06.2010, 21:41

Приветствую всех!!!
Пытаюсь написать хук обрабатывающий WM_TIMER
Прилагаю код функции из DLL

Код:

function SysMsgProc(code : integer; wParam : longint; lParam : longint; Message: longint) : longint; stdcall;
begin
   if (code < 0) then
   begin
      SysMsgProc := CallNextHookEx(SysHook, code, wParam, lparam);
      Exit;
   end;
   if (TMSG(pointer(lParam)^).message = WM_TIMER) then
   begin
     messagebox(0, pchar('WM_TIMER - ' + inttostr(message)), pChar('WM_TIMER'), mb_YesNoCancel);
   end;

SysMsgProc := CallNextHookEx(SysHook, code, wParam, lparam);

end;

Вызываю эту функцию

Код:

SetWindowsHookEx(WH_GETMESSAGE, @SysMsgProc, HInstance, 0)

В результате не выдается ни одного сообщения. Хотя специально запускаю программы в которых используется таймер.
Используемая ОС windows XP SP3
Может кто знает в чем тут проблема?

Bonez92 · 27.06.2010, 08:35

Этот DLL успешно внедряется в приложения, которые Вы хотите "перехватить"?
Что возвращает SetWindowsHookEx?

19.06.2010, 21:41	#1
Proof Пользователь Регистрация: 20.02.2008 Сообщений: 63	Перехват WM_TIMER Приветствую всех!!! Пытаюсь написать хук обрабатывающий WM_TIMER Прилагаю код функции из DLL Код: `function SysMsgProc(code : integer; wParam : longint; lParam : longint; Message: longint) : longint; stdcall; begin if (code < 0) then begin SysMsgProc := CallNextHookEx(SysHook, code, wParam, lparam); Exit; end; if (TMSG(pointer(lParam)^).message = WM_TIMER) then begin messagebox(0, pchar('WM_TIMER - ' + inttostr(message)), pChar('WM_TIMER'), mb_YesNoCancel); end; SysMsgProc := CallNextHookEx(SysHook, code, wParam, lparam); end;` Вызываю эту функцию Код: `SetWindowsHookEx(WH_GETMESSAGE, @SysMsgProc, HInstance, 0)` В результате не выдается ни одного сообщения. Хотя специально запускаю программы в которых используется таймер. Используемая ОС windows XP SP3 Может кто знает в чем тут проблема? Последний раз редактировалось Proof; 19.06.2010 в 22:09.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Перехват уведомлений из IE	LeCrunch	Win Api	2	27.05.2010 21:41
перехват CONNECT	snakesoftware	Win Api	9	05.05.2010 18:31
Перехват неперехвачеваемого	hotcooler17	Win Api	3	03.04.2009 18:31
Перехват сообщений	rubi	Win Api	3	06.09.2007 00:25
перехват трафика	Roman	Работа с сетью в Delphi	6	27.06.2007 08:51

27.06.2010, 08:35	#2
Bonez92 Пользователь Регистрация: 11.10.2009 Сообщений: 29	Этот DLL успешно внедряется в приложения, которые Вы хотите "перехватить"? Что возвращает SetWindowsHookEx?