трейнер

[ERASERROR]

Пишу трейнер к игре, имеется адресс 16 ричный, имеется значение которое надо туда записать, пытался в сам exe записать, винда запретила так как процесс уже запущен, хотя открывал с параметром fmsharedenynone.может кто подскажет?

[Air]

Вам скорее всего надо не в ЕХЕ-файл записывать, а в память образа.
К примеру: "ArtMoney" так работает.

[ERASERROR]

А как записать в память? Допустим адресс 04C33E24, а значение 270F

[Air]

1 - почему бы не отредактировать ЕХЕ до его старта?
2 - почему бы не использовать "ArtMoney" или другой редактор памяти?
3 - и наконец, что за игру Вы собираетесь пропатчить?

var D:TStream;
     Buf:DWORD;
begin
Buf:=$270F;
D:=TFileStream.Create('C:\1.exe',fmOpenWrite);
d.Seek($04C33E24,soBeginning);
d.Write(Buf,sizeof(buf));
d.Free;

Это если отредактировать ЕХЕ перед его запуском (резервную копию на всякий случай сделайте)

[ERASERROR]

Игра C&C3 Tiberium wars, до запуска делал, бесполезно, ресурсы заполняются во время игры, я хочу ради практики написать свой трейнер(не патч)

[Air]

Жди ответа с темы "Редактирование памяти процесса"
http://www.programmersforum.ru/showthread.php?t=14328
я если честно трейнеры ещё не писал.
Если что прверь сайт http://chemax.ru/

[ERASERROR]

И на том спасибо

[Air]

Вот попробуй так.

uses Tlhelp32
...

function GetProcessId(pName: PChar): dword;
var
 Snap: dword;
 Process: TPROCESSENTRY32;
begin
  Result := 0;
  Snap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if Snap <> INVALID_HANDLE_VALUE then
     begin
      Process.dwSize := SizeOf(TPROCESSENTRY32);
      if Process32First(Snap, Process) then
         repeat
          if lstrcmpi(Process.szExeFile, pName) = 0 then
             begin
              Result := Process.th32ProcessID;
              CloseHandle(Snap);
              Exit;
             end;
         until not Process32Next(Snap, Process);
      Result := 0;
      CloseHandle(Snap);
     end;
end;

Function WriteDataToEXE(EXEname:String; Buff,Position:Dword):int64;
var f:cardinal; buf,pos:Dword;
begin
WriteProcessMemory(getprocessid(pchar(EXEname)),@Position,@buff,sizeof(buff),f);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
WriteDataToEXE('taskmgr.exe',$270F,$04C33E24);
end;