Текущий архив: 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.016 c