Немогу разобраться с хуками!

[Altera]

Привет всем!
Я никак разобраться с хуками. Все исходники одинаковые и все какие-то супер-пупер закрученные перекрученные.
Короче кочу такой:
1) Без лишних наворотов (автозагрузка, автокопирование и т.д.), только запись в файл.
2) С установкой и снятием я разобрался.
3) Хук на клаву или мышь с записью значений в файл.
4) поробное пояснение к каждой строчке...

Большое спасибо заранее!!!

library dllLibrary;

uses
windows, sysUtils;

var
hookH: tHandle;

function onHookCall(code: integer; wParam, lParam: longInt): longInt; stdCall;
var
way: string;
f: textFile;
begin
 if code >= 0 then
  begin //исполняемый код
   Way:='d:\text.txt';
   assignfile(f,way);
   if fileexists(way) then
    append(f)
   else
    rewrite(f);
   writeln(inttostr(wParam));
   closefile(f);
  end
 else
  begin
   result:=CallNextHookEx(hookH, code,wParam,lParam);
   exit;
  end;
 result:=CallNextHookEx(hookH,code,wParam,lParam);
End;

procedure setHook(const setOrUnHook: boolean); stdCall;
begin
   if setOrUnHook then    
      hookH := setWindowsHookEx(WH_MOUSE, @onHookCall, hInstance, 0)
   else
      UnhookWindowsHookEx(hookH);
end;

exports setHook;

begin

end.

[BOBAH13]

Чет я не понял это библиотека или магазин с халявой ? "Короче кочу такой:" очень смешно... вы бы еще дописали "в короткие сроки".

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

[Ozerich]

кочу я тебе сказать
1.невежливый вопрос
2.MSDN надо хотя бы читать
3.ставишь хук

Hook:=SetWindowsHookEx(WH_KEYBOARD,@KeyHookProc,hinstance,0);

4.процедура перехвата примерна такая

Function KeyHookProc(code:integer;wparam:wparam;lparam:lparam):longint;stdcall;
var
keyState:TkeyBoardState;
wnd:HWND;
count:integer;
buf:array[0..1] of char;
begin
result:=CallNextHookEx(hook,code,wparam,lparam);
if Code=HC_ACTION  then 
begin

тут свой код
wParam
код клавиши в параметре лежит
еще проверку можно сделать
if ((lparam and (1 shl 30))<>0) then
что нажата клавиша


end;
end;

P.S Борзеть тока не надо

[Altera]

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

кочу я тебе сказать
1.невежливый вопрос
2.MSDN надо хотя бы читать
3.ставишь хук

Hook:=SetWindowsHookEx(WH_KEYBOARD,@KeyHookProc,hinstance,0);

4.процедура перехвата примерна такая

Function KeyHookProc(code:integer;wparam:wparam;lparam:lparam):longint;stdcall;
var
keyState:TkeyBoardState;
wnd:HWND;
count:integer;
buf:array[0..1] of char;
begin
result:=CallNextHookEx(hook,code,wparam,lparam);
if Code=HC_ACTION  then 
begin

тут свой код
wParam
код клавиши в параметре лежит
еще проверку можно сделать
if ((lparam and (1 shl 30))<>0) then
что нажата клавиша


end;
end;

P.S Борзеть тока не надо

Когда я "делал заказ", я делал его не зря, представленый вами код я найду в инете и у меня это займёт секунд 30, ну 40...
А мне нужен конкретный пеример. Твой пример у меня воляеться в 10 разных вариациях, однако он не записывает данные в файл. Это не так просто, иначе я бы не спрашивал...

Вот такой код мы тут насочиняли:

library dllLibrary;

uses
  Windows, Messages, SysUtils,  Classes, Graphics, Controls,
  Dialogs, ExtCtrls,  StdCtrls, XPMan, ExtDlgs;

{$R *.res}

var
H:THandle;
f:textfile; Way:string;

function hook(c0de, wParam, lParam : integer): Lresult; stdcall;
begin
 if c0de >= 0 then
  begin //исполняемый код
   writeln(f, inttostr(wParam));
  end
 else
  begin
   result:=CallNextHookEx(H, c0de,wParam,lParam);
   exit;
  end;
 result:=CallNextHookEx(H,c0de,wParam,lParam);
End;

procedure sethook;
begin
   assignfile(f,'text.txt');
   rewrite(f);
   H:=SetWindowsHookEx(WH_KEYBOARD,@hook,hInstance,0);
   if H=0 then showmessage('0');
end;

procedure unHook;
begin
   UnhookWindowsHookEx(H);
   closefile(f);
end;

exports
sethook,
unHook;

begin

end.

Работает только когда активно окно EXE файла, вызываемого DLL, причём при потере фокуса и при возобновление фокуса запись не возобновляется!

[BOBAH13]

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

[Ozerich]

Зачем стока модулей?Зачем{$R *.res}?

Такая проблема возникает когда хук локальный(на одну программу) а не глобальный(на всю систему)

Дай глянуть код Exe файла.

[rpy3uH]

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

Я никак разобраться с хуками. Все исходники одинаковые и все какие-то супер-пупер закрученные перекрученные.

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

[Altera]

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

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

Я хочу разобраться со всеми тёмными моментами этих Хуков!
Вот почему, когда в выше приведённом мной коде, я не записываю в файл, а просто меняю, скажем, заголовок активного окно, то всё прекрасно работает?

Зачем стока модулей?Зачем{$R *.res}?

Это вопрос не в тему!

Дай глянуть код Exe файла.

Ничё там такого нету, просто вызов процедуры установку хука.

procedure Tforma.Button1Click(Sender: TObject);
begin
   setHook;
end;

procedure Tforma.Button2Click(Sender: TObject);
begin
   unHook;
end;

procedure Tforma.FormCreate(Sender: TObject);
begin
   dll := loadLibrary('D:\Documents\Applicans filse\delphi\TESTING\dllLibrary\dllLibrary.dll');

   @setHook := getProcAddress(dll, 'sethook');
   @unHook := getProcAddress(dll, 'unHook');
end;

[rpy3uH]

Altera, покури немного в бане. сам знаешь почему

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

Вот почему, когда в выше приведённом мной коде, я не записываю в файл, а просто меняю, скажем, заголовок активного окно, то всё прекрасно работает?

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

[Jupiter]

Вот такой код мы тут насочиняли:

Код:
...
...
...
Работает только когда активно окно EXE файла, вызываемого DLL, причём при потере фокуса и при возобновление фокуса запись не возобновляется!

Попробуй так:

function hook(c0de, wParam, lParam : Integer): Lresult; stdcall;
Var
f : TextFile;
begin
  if c0de >= 0 then
  begin //исполняемый код
  AssignFile(f,'text.txt');

  {$I-}
  Append(f);
  {$I+}

    If IOResult <> 0 Then
    Rewrite(f);
    
  Writeln(f,inttostr(wParam));
  CloseFile(f);
  end;
Result:=CallNextHookEx(H,c0de,wParam,lParam);
End;

В ловушке не тестировал, но может сработать .