ReadProcessMemory Problem

07/21/2009 11:50 hasnon#1

I can't listing Proc. Only one

uses TlHelp32

var
hProcess,HandleWindow: THandle;
Struct: TProcessEntry32;
ProcessID,temp:cardinal;
buf:pchar;
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);

07/24/2009 14:05 neofox#2

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

07/24/2009 19:55 hasnon#3

Delphi

My want example

[Only registered and activated users can see links. Click Here To Register...]
[Only registered and activated users can see links. Click Here To Register...]

07/26/2009 00:19 hasnon#4

this code with succeed
preceding mistake

Code:

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

Code:

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;