PwBr pointer delphi

[marcelo380]

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 миллиона номеров, может кто-нибудь мне помочь?

[louco89]

BaseAddress = $00AF7464

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;

[marcelo380]

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 ?