Criando Multi Hack MU Delphi By Picasso

                                                                      Coders
                                                            Button Captura Processo
                                                                 PegarHandle('Main');
                                                                     Button Dupe
                                           escreve (StrToInt ('$' + '083A9444'), StrToInt ('1'));
                                                                             Var
                                                                              var
                                                                  Form1: TForm1;
                                                                  NomeJanela : THandle;
                                                                  PHandle : THandle;
                                                                  PID, TID, R : DWORD;
                                                                  Escrever : DWORD; 
                                                                         {$E*.dfm}

         Procedure PegarHandle(Titulo:String);

   Begin

        NomeJanela := FindWindow(nil, pChar (Titulo));

             If NomeJanela <= 0 Then

 Showmessage('Erro. Este processo não está em execução.')

    else

TId := GetWindowThreadProcessId(NomeJanela, @PID);

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

    end;

          Procedure ler(Endereco:dword);

  var

    Ler:dword;

    valor:integer;

begin

valor:= 0;

ReadProcessMemory(PHandle,pointer(endereco),addr(valor),4,Ler);

end;

Procedure escreve(Endereco:dword ; valor: integer);

var

w:dword;

begin

writeprocessmemory(PHandle,pointer(endereco),addr(valor),4,w);

end;