Глобальный хук на клаву и мышь БЕЗ dll

[WestSide]

function LowLevelKeyboardProc(nCode:Integer; WParam:WPARAM; LParam:LPARAM) : LRESULT stdcall;
begin
  WriteLn(GetTickCount); // Form1.Label1.Caption:=IntToStr(GetTickCount);
  Result:=CallNextHookEx(hHook1,nCode,WParam,LParam);
end;

function StartTimer:Boolean;
begin
  Result:=False;
  hHook1:=SetWindowsHookEx(13,@LowLevelKeyboardProc,HInstance,0);
  hHook2:=SetWindowsHookEx(14,@LowLevelKeyboardProc,HInstance,0);
if (hHook1<>0) and (hHook2<>0) then Result:=True;
end;

Запускаю как StartTimer. не могу понять почему данный код отлично работает, когда запускаю его из приложения с формой, но нифига не работает, когда запускаю его из консольного приложения. Может есть идеи? StartTimer возвращает True в обоих случаях, но при работе в консоли просто не происходит входа в LowLevelKeyboardProc

[Человек_Борща]

Может есть идеи?

Учите матчасть. Любой хук должен быть реализован в виде DLL, и никак иначе.
Так уж пвелось, что только DLL может быть подгружена процессом.

[WestSide]

Сообщение от Человек_Борща

Учите матчасть. Любой хук должен быть реализован в виде DLL, и никак иначе.
Так уж пвелось, что только DLL может быть подгружена процессом.

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

[WestSide]

Проблема решена, нехватало PeekMessage

[Человек_Борща]

Даже MSDN утверждает что можно использовать глобальные хуки без DLL.

Ещё раз повторю: Учите матчасть.

A global hook procedure can be called in the context of any application in the same desktop as the calling thread, so the procedure must be in a separate DLL module.

Проблема решена, нехватало PeekMessage

Вот мне интересно, вам известно что консольное приложение вообще не имеет окон и не участвует в оконном цикле сообщений?

[WestSide]

Сообщение от Человек_Борща

Ещё раз повторю: Учите матчасть.



Вот мне интересно, вам известно что консольное приложение вообще не имеет окон и не участвует в оконном цикле сообщений?

Специально для вас скомпилировал и положил вместе с исходниками консольную программу, что отлично работает на моей Windows 7 (64), возможности проверить на XP 32 пока нет.

Скачать

Скриншот
http://s017.radikal.ru/i402/1408/cf/17a3e146db7b.png

[northener]

Сообщение от Человек_Борща

Учите матчасть. Любой хук должен быть реализован в виде DLL, и никак иначе.
Так уж пвелось, что только DLL может быть подгружена процессом.

Кроме "низкоуровневых" хуков. Для них dll не нужна. Они (низкоуровневые хуки) не подгружаются в процессы, да и вообще не знают ничего про процессы. Они, как это и следует из их названия, работают на более низком уровне.

[Somebody]

Сообщение от northener

Кроме "низкоуровневых" хуков. Для них dll не нужна. Они (низкоуровневые хуки) не подгружаются в процессы, да и вообще не знают ничего про процессы. Они, как это и следует из их названия, работают на более низком уровне.

Вроде помню, что раньше на MSDN такое было написано, но потом убрали. Не знаю почему...

[саша40]

Сообщение от Somebody

Вроде помню, что раньше на MSDN такое было написано, но потом убрали. Не знаю почему...

Конфициальность и защита от шпионских программ. Антивирусы такие хуки выслеживают и уничтожают. Им же не скажешь, что этот хук сделал сам пользователь, а не хакер.

[Vapaamies]

Сообщение от Somebody

Вроде помню, что раньше на MSDN такое было написано, но потом убрали. Не знаю почему...

Потому что каждая новая версия MSDN всё больше считает программистов быдлом. Скоро во всех функциях будут писать, что минимально требуемая версия ОС -- Windows 7, хотя функции работали/работают еще с NT4, например.