[fossil]

SASHA 333
Кстати на чем писать то собираешься?
Вот например код на дельфи:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var pos, c : integer;
begin
for c:= 1 to 255 do
begin;
pos := GetKeyState(c);
if Copy(IntToStr(pos),1,1) = '-' then begin;
memo1.Text := Memo1.Text + chr(c);
end;
end;

Этот код не предназначен для кейлогеров, но помаленьку отлавливает

А вот код на ассеблере:
http://www.avm88.narod.ru/programming/articles/a3.html

Я ищу нормальный код на дельфи, для кейлоггера, если у кого есть сорцы или ссылки киньте плз...