ReadProcessMemory Problem

[hasnon]

I can't listing Proc. Only one

uses TlHelp32

var
hProcess,HandleWindow: THandle;
Struct: TProcessEntry32;
ProcessID,temp:cardinal;
bufchar;
begin
HandleWindow :=FindWindow(nil,'Metin2');
GetWindowThreadProcessId(HandleWindow,@ProcessID);
hProcess := OpenProcess(PROCESS_ALL_ACCESS,FALSE,ProcessID);
getmem(buf,4);
readprocessmemory(hProcess,ptr($00830022),buf,4,te mp);
Memo1.Lines.Add(inttostr(integer(buf)));
freemem(buf);
if hProcess <> 0 then
CloseHandle(hProcess);

[neofox]

HI what is this for a programming language? looks like a combination of Delphi and C++

[hasnon]

Delphi

My want example

[hasnon]

this code with succeed
preceding mistake

 GetWindowThreadProcessId(FindWindow('Metin2',0),@ProcessID);

var
   ProcessID, temp: cardinal;
   Address: integer;
begin
  GetWindowThreadProcessId(FindWindow(nil,'Metin2'),@ProcessID);
  Toolhelp32ReadProcessMemory(ProcessID,pointer($010EBE4D),Address,SizeOf(Address),temp);
  Memo1.Lines.Add(inttostr(Address));
end;