Текущий архив: 2003.11.27;
Скачать: CL | DM;
Вниз
замена байтов по адресам Найти похожие ветки
← →
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;
Страницы: 1 вся ветка
Текущий архив: 2003.11.27;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.018 c
