Помогите заменить байты в файле

[Dax]

Вобщем мне нужно чтобы на оффсете 566787 заменить два байта на EA как сделать,подскажите плз

програмлю на Delphi for win32

[Jeni]

А где это нужно заменить, в каком-нибудь файле или внутри работающей программы?

[Dax]

обычный бинарный файл

[Jeni]

procedure TForm1.Button1Click(Sender: TObject);
const
  Offset = 566787;
  или
  Offset = 566786;
var
  F: TFileStream;
  X: Word;
begin
  F := TFileStream.Create(<имя_файла>, fmOpenReadWrite);
  F.Position := Offset;
  F.Read(X, 2);

  X := $E * 256 + $A; // EA
  или
  X := $A * 256 + $E; // AE

  F.Position := Offset;
  F.Write(X, 2);
  F.Free;
end;

1. Я указал два возможных значения смещения, т.к. это зависит от того как ты его вычисляешь - в подпрограммах обработки файлов нумерация байт идет с нуля. Если твое число (566787) уже учитывает начальный "ноль", то используй первый вариант, иначе (если ты считал с единицы) - второй вариант.
2. Число X устанавливается двумя возможными способами. В первом варианте в переменной запишется число 'EA', но байты в числах хранятся "наоборот", поэтому в файл запишется последовательность 'AE' (обратно будет считаться в переменную как 'EA'). Во втором варианте в переменную число записывается как 'AE', зато в файл - в виде последовательности 'EA'. Возможно тебе больше подойдет второй способ.

Самое лучшее попробовать и так, и этак и смотреть после этого файл в HEX-редакторе.