Ler Valor

[zSith 15]

Titulo já diz tudo LER valor da ADDRESS:

 

Adicione um Label e um Timer:

 

No Timer Adicione:

 

var

Acesso,TGH : THandle;

PID: DWORD;

Valor, Read: cardinal;

begin

TGH := FindWindow('MU', nil);

GetWindowThreadProcessId(TGH, @PID);

Acesso := OpenProcess(PROCESS_ALL_ACCESS,FALSE,PID);

ReadProcessMemory(Acesso , Ptr($0012D51C), Addr(Valor), 1, Read); //1 é 1Byte, se for 2Bytes coloque 2 e assim em diante

label1.Caption := inttostr(valor)

end;