hola ayuda delphi 7 <<Clip>>

[darkcuevas]

bueno voy a tratar de expricarme mejor


aja yo quiero crear un trainer para un juego por ejenplo gta san andreas(el trainer ni es para este juego es para otro)

creo q todos sabemos que es un trainer el trainer va a tener como funcion mmmm por ejenplo suvir la vida al maximo entre otras funciones (el code para editar la vida lo tengo )

aki el code....

procedure TForm1.Button1Click(Sender: TObject);
var
BasePointer, BasePointer1: Dword;
Value : Dword;
begin
Value := 1000; //este el el valor de la vida
TID := GetWindowThreadProcessId(GameWindow, @PID);
PHandle := OpenProcess(PROCESS_ALL_ACCESS,FALSE,PID);

ReadProcessMemory(PHandle,Pointer($XXXXXX),@BasePointer,04,Read);
BasePointer1 := BasePointer+$XX;

WriteProcessMemory(PHandle,Pointer(BasePointer1),Addr(Value),04,Write);
end;

este el codigo que va a editar la vida<>este es el que se usa para editar un numero



pero otra funcion va hacer para que el carro ande mas rapido (no digo que este hack exista pero es un ejenplo) normalmente este valor no se podria solo ser editado sies que es controlado por una allocation (no estoy seguro si asi se le dice) lo q yo voy a hacer es editar la allocation pero esto no se edita solo canviando un valor se nesesita el auto assemble el autoassanble lo que hace es reenplasar un fragmento del juego eso es todo bueno pero ese codigo yo lo quiero plamar en el trainer pero no tengo el code para inyectarlo

creo q mas claro no lo puedo explicar

[[duilioisola]]

Creo entender que lo que quieres es utilizar assembler dentro de una función tuya para modificar una posición de memoria, donde un juego guarda información relativa a vidas, tiempo restante, puntos, etc.

En Delphi se pueden utilizar instrucciones en assembler. Este ejemplo es del Help de Delphi 6 y lo que hace es multiplicar dos valores:

Código Delphi [-]
function LongMul(X, Y: Integer): Longint;    
asm
  MOV     EAX,X
  IMUL    Y
end;

Yo no conozco assembler, por lo que no te puedo ayudar en esa parte, pero la ayuda de Delphi trae alguna información.

P.D. Escribe tu código Delphi entre los tags correspondientes, para que queden bien formateados. Por ejemplo:

[ DELPHI]
function LongMul(X, Y: Integer): Longint;    
asm
  MOV     EAX,X
  IMUL    Y
end;
[ /DELPHI]