| Код |
uses SysUtils;
...
procedure PathFile(const FileName: String);
var
hFile, i: Integer;
Pos, Val: Integer;
begin
hFile := FileOpen(FileName, fmOpenWrite);
if hFile < 0 then raise Exception.Create('Файл %s не найден (или к нему закрыт доступ записи)', [FileName]);
FileSeek(Pos{Идёшь туда куда надо (номер байта который нужно подправить)}, 0{Ноль- значит номер байта с начала фала});
FileWrite(hFile, Val{Значение которое нужно записать}, SizeOf(Val){Размер значения !!! Желательно поставить цифру руками});
... {Делаешь предыдущие инструкции столько раз в скольких местах нужно пропатчить (естественно нужно знать где (Pos) и что (Val) патчить)}
FileClose(hFile);
end;
|
|
)