آموزش ساخت تراینر با دلفی

[Shahryar_Bmp]

از این هم میتونید استفاده کنید

procedure PokeMem(Address: Cardinal; Bytes: Array Of Byte);

var

  NBW: Cardinal;

begin

  WinName:= FindWindow(nil, 'White');

  GetWindowThreadProcessId(WinName, @ProcId);

  Proc:= OpenProcess(Process_All_Access, False, ProcId);

  WriteProcessMemory(Proc, Ptr(Address), @Bytes[0], Length(Bytes), NBW);

  CloseHandle(Proc);

end;

 procedure PokeMemory;

 begin

  PokeMem($679D120,[$00,$60,$6A,$47]);

  PokeMem($5F71AF0, [$00,$00,$80,$3F]);

 end;

از این هم برای فراخانی پروسیجر و جای تایمر استفاده کنید :

SetTimer(0, 0, 10, @PokeMemory);