muxa_one

Спасибо большое, попробую. Все работает идеально не выкидывает, еще раз спасибо.

Доброго времени суток, собственно имеется такой код: unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Buttons, Vcl.StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; WindowName : integer; ProcessId : integer; ThreadId : integer; buf : PChar; HandleWindow : Integer; write : NativeUInt; Const WindowTitle = '**'; Отдача = $E3788A; СигнОтдача = $9090; NumberOfBytes = 1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin WindowName := FindWindow(nil,WindowTitle); If WindowName = 0 then begin MessageDlg('Запустите игру.', mtwarning,[mbOK],0); end; ThreadId := GetWindowThreadProcessId(WindowName,@ProcessId); HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId); GetMem(buf,1); buf^ := Chr(СигнОтдача); WriteProcessMemory(HandleWindow,ptr(Отдача),buf,NumberOfBytes,write); FreeMem(buf); CloseHandle(HandleWindow); end; procedure TForm1.FormCreate(Sender: TObject); begin end; end. После нажатия на кнопку игра зависает и выкидывает, что можно сделать чтобы этого не происходило?

Подскажите как?

Доброго времени суток, написал трейнер на C#. Нашел нужный адрес и изменил его, трейнер работает. После перезапуска игры, адрес изменяется и трейнер больше не может обнаружить его. Что делать?