Отследить нажатие клавиши для отдельного окна

[Черничный]

А можно отслеживать нажатые клавиши для отделдьного окна, и не используя внешнюю dll, что бы все было в exe (это вроде локальный hook). И воощем как отследить. У меня так, если нашел активное окно с таким то заголовком, то шпионить... Полазал по форуму, но что то нужного куска кода я не обнаружил.

[eyeofthedemon]

Ет кажысь нереальна без...DLL

[Черничный]

читал что глобальная с dll, а локальная для какого то приложения можно из exe

[rpy3uH]

если захотеть, то можно. В общем, копай в сторону инжекта в другие процессы. Но там уже надо писать базонезависимый код, на Delphi это будет сложновато, но возможно.

[Somebody]

Глобальный хук WH_JOURNALRECORD работает без dll
http://www.xakep.ru/magazine/xs/070/040/1.asp

[Черничный]

да это я уже понял и работает для отдельнного приложения а не всей системы

[Черничный]

Ребята, полазал я на журнале хакер, все вроде нашел, но столкнулася с проблемками...
есть строка:
HookHandle := SetWindowsHookEx(WH_JOURNALRECORD, @HookProc, hInstance, 0);

Жалуется на HookProc! В чем дело? HookProc видимо нигде не объявленна, но там ничего я не нашел больше

[mytant712]

HookProc это твоя процедура обработки перехвата, которая должна быть в dll как я понял.сам сижу с этим разбираюсь(

[Черничный]

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

HookProc это твоя процедура обработки перехвата, которая должна быть в dll как я понял.сам сижу с этим разбираюсь(

Я использую локальный хук, тут не надо dll
http://www.xakep.ru/magazine/xs/070/040/1.asp
вот тут я инфу брал

[eoln]

Вот небольшая рабочая часть программы.

var 
  HookHandle: hHook; 

function HookProc(Code:integer; WParam:word; LParam:Longint):Longint; stdcall;
begin 
  //какие-то действия ловушки
  result := CallNextHookEx(HookHandle,code,WParam,LParam);
end;

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

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

Но учтите ctrl-alt-delete (я этими кнопками пару раз в час пользуюсь) и подобные сочетания вашу ловушку закроют. Лучше обычную с dll-кой сделать и если dll мешается - запихнуть её в ресурсы, а при запуске распаковывать и загружать оттуда ловушку.