Работа с файлами, поиск по сигнатуре Опции

[Neo 2002]

Допустим мне надо найти в файле последовательность байт FE7455 и заменить эти байты на 909090?

Как это проделать на дельфи? Можно пример?

[Fallcom]

Вот тебе пример замены трех байтов в файле начиная с пятой позиции.

Код

var
 f: File;
 s: array [1..3] of Byte;
begin
 s[1] := $90;
 s[2] := $90;
 s[3] := $90;
 AssignFile(f, 'c:\temp.tmp');
 Reset(f, 1);
 Seek(f, 5);
 BlockWrite(f, s, SizeOf(s));
 CloseFile(f);
end;

Как найти нужную последовательность, думаю, проблем тоже не будет. С помощью BlockRead считай весь файл целиком, найди нужный кусок простым сравнением (к сожалению аналога функции memcmp в Си для Delphi я не знаю) и получи искомую позицию. А там уж по аналогии с вышеописанным, только знай себе меняй позицию в Seek и данные в S.