Criando Um Trainer no Delphi

Ae galere criei este topico aqui pra demonstrar como e simples criar um trainer.
Um trainer e um programa que edita valores na memoria de um jogo(pode se ate programas),tais como life,mp,ataque;
Primeiramente tente entender os codigos,leia com calma nao de apenas ctrl c + ctrl v.
Abra seu delphi.
Declaremos as variaveis globais.

H,PH:THandle;
PID, THandleID, R : DWORD;

Pra quem não sabe você declara-as debaixo de

var
 Form1: TForm1;

//Agora coloque um timer que vai verificar se a janela do nosso jogo esta ativa,se estiver ele vai pegar o PID pela api GetWindowThreadProcessId(); que nada menos apenas pega o PID apartir da janela.Depois disso o OpenProcess();Abre para nos o processo com privilegio total.

//TIMER1
H := FindWindow(nil,Pchar('MU'));
THandleID := GetWindowThreadProcessId(H, @PID);
PH := OpenProcess(PROCESS_ALL_ACCESS,FALSE,PID);

Depois disso colocaremos o botao de editar,ou pode ser uma checkbox com o caption "Guild Hack";
Neste botao editaremos o local da memoria,usando o writeprocessmemory.

Clique 2x na checkbox que vc adicionou ou button e siga.
Declare a variavel "escrever" como dword,e x como integer;
coloque o codigo
x:=1;
writeprocessmemory(PH,pointer($083A944C), addr(x),4,escrever);

//Onde x e o valor a ser editado caso ai e 1 mesmo(1 = ativo 0 =desativado,semelhante aos numeros binario =D)
//$083A944C e o address que vai se editado,utilizando o  indicador de hex ($);
//PH e o processo.

Apos isto e so testar.
Mini tuto e explicação dos codigo : Leandro

PX, Criativo, vou ver se acerto, pois estou na área de Visual Basic Leandro.........