PwBr pointer delphi

08/21/2011 23:41 marcelo380#1
Gente não consigo pegar um pointer de adderess no PwBr com delphi o Pid fica 16844 :S e se eu pego 1 adderess fixo não funciona fica milhões de números, alguém pode me ajudar ?

@English

People can not get a pointer to the adderess PwBr with Delphi is the Pid 16844: S and if I get a work is not fixed adderess million numbers, can anyone help me?

@Russo

Люди не могут получить указатель на adderess PwBr с Delphi является Pid 16844: S и если я получу работу не устанавливается adderess миллиона номеров, может кто-нибудь мне помочь?
08/22/2011 05:13 louco89#2
BaseAddress = $00AF7464
:)
Code:
var
  H, TI, PI, W, rw: DWORD;
  Pointer, PointerName: DWORD;
  Name: Array [0 .. 100] of Char;
begin
  H := FindWindow(nil, 'Element Client');
  if (H <= 0) then
    exit;
  try
    TI := GetWindowThreadProcessId(H, @PI);
    W := OpenProcess(PROCESS_ALL_ACCESS, False, PI);
    ReadProcessMemory(W, ptr($00AF7464), @Pointer, 4, rw);
    ReadProcessMemory(W, ptr(Pointer + $34), @Pointer, 4, rw);
    ReadProcessMemory(W, ptr(Pointer + $638), @PointerName, 4, rw);
    ReadProcessMemory(W, ptr(PointerName), @Name, SizeOf(Name), rw);
    //Name é o nome do seu personagem.
end;
08/24/2011 06:11 marcelo380#3
PHP Code:
   H := FindWindow(nil, 'Element Client');
  if (H <= 0) then
    exit;
  try
    TI := GetWindowThreadProcessId(H, @PI);
    W := OpenProcess(PROCESS_ALL_ACCESS, False, PI);
    ReadProcessMemory(W, ptr($00AF7464), @Pointer, 4, rw);
    ReadProcessMemory(W, ptr(Pointer + $34), @Pointer, 4, rw);
    ReadProcessMemory(W, ptr(Pointer + $638), @PointerName, 4, rw);
    ReadProcessMemory(W, ptr(PointerName), @Name, SizeOf(Name), rw);
       label2.Caption:= Name;
  EXCEPT
         end;
      end;

end. 
bom assim ele me mostra a inicial do nome como mostrar todo nome ?