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

[Shahryar_Bmp]

خوب مثل اینکه خبری نیست , باید خودم شروع کنم :

procedure TForm1.Button1Click(Sender: TObject);

var

  WindowName : integer;

  ProcessId : integer;

  ThreadId : integer;

  buf : pchar;

  HandleWindow : Integer;

  write : cardinal;

const

  WindowTitle = 'Minesweeper';

begin

WindowName := FindWindow(nil,WindowTitle);

If WindowName = 0 then

begin

MessageDlg('Your game is not running!', mterror,[mbOK],0);

end;

ThreadId := GetWindowThreadProcessId(WindowName,@ProcessId);

HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);

GetMem(buf,1);

buf^ := Chr($90);

WriteProcessMemory(HandleWindow,ptr($400000),buf,1  ,write);

FreeMem(buf);

CloseHandle(HandleWindow);

end;

تو این کدی که من دارم اول باید پنجره Minesweeper رو پیدا کنه که من می خوام توی پروسه ها بگرده و بازی رو پیدا کنه
سوال بدیم هم اینه که مثلاً چطوری میتونم همین آدرس رو فریز کنم
ممنون