замена байтов по адресам

← →
Antonsv (2003-11-13 13:53) [0]

Мне нужно в файле заменить байты по адресу например 0005f47f на 74ев. Как этосделать в делфи5

← →
Skier © (2003-11-13 13:55) [1]

TFileStream.Position + TFileStream.Write

← →
Piople © (2003-11-17 07:08) [2]

> TFileStream.Position + TFileStream.Write

Не обезательно, можно и через seek

← →
Fay (2003-11-17 10:13) [3]

Ку? 8)
PByte($0005f47f)^ := $74; PByte($0005f480)^ := $EB;

← →
Palladin © (2003-11-17 11:18) [4]

> Fay (17.11.03 10:13) [3]

А где указывать в каком файле менять?

← →
Fay (2003-11-17 11:28) [5]

Прости! Я не заметил, что речь о файле 8)

← →
Fay (2003-11-17 11:39) [6]

Ку?
var f : Integer; w : word; begin f := FileOpen("d:\1.txt", fmOpenReadWrite); w := $EB74; FileSeek(f, 0, $0005f47f); FileWrite(f, w, 2); FileClose(f); end;

замена байтов по адресам Найти похожие ветки