Cheat Engine

[onlyus]

hi everyone my english not good sorry
i'm made memory editer but.. problem

Down plz !
↓
/// Script
procedure TForm1.Button1Click(Sender: TObject);
var
hProcess,HandleWindow: THandle;
ProcessID,temp:cardinal;
buf: Pointer;
begin
HandleWindow :=FindWindow('notepad',Nil);
if HandleWindow = 0 then begin
Showmessage('not found')
;Exit;
end;
GetWindowThreadProcessId(HandleWindow,@ProcessID);
hProcess := OpenProcess(PROCESS_ALL_ACCESS,FALSE,ProcessID);
Getmem(buf,4);
readprocessmemory(hProcess,ptr($01003E21),buf,4, temp);
showmessage(String(buf));
freemem(buf);
CloseHandle(hProcess);
End;
End.
////
this script working but
showmessage(String(buf)); // <
messagebox content " !@$5%%^ "
i'm want integer (EX: 1,2,3,4~~~)
help me plz !!

[Dark Byte]

do:

showmessage(inttostr(pinteger(buf)^));

what it does:
typecast buf to a integerpointer: (pinteger(buf))
then dereference the pointer to a integer (^)
and then convert the integer to a string (inttostr)

[onlyus]

thanks!