Текущий архив: 2006.08.13;
Скачать: CL | DM;

Вниз

Замена байт   Найти похожие ветки 

← →
Alfa   (2006-07-23 17:51) [0]

Всем привет! Подскажите, как можно заменить в файле размером около 20 мб определенные несколько байт?

---

← →
Fay ©   (2006-07-23 17:56) [1]

CreateFile
SetFilePointer(Ex)
WriteFile
CloseHandle

---

← →
Anatoly Podgoretsky ©   (2006-07-23 18:42) [2]

Взломом занимаешься?

---

← →
KilkennyCat ©   (2006-07-23 18:44) [3]

ну почему же сразу взлом... просто ошибку в собственном проекте нашел, наверное, а исходники потерял :))

---

← →
Anatoly Podgoretsky ©   (2006-07-23 18:55) [4]

Отгадал все буквы, не смог отгадать слово

---

← →
Alfa   (2006-07-23 19:23) [5]

Нет, не взломом :-)

---

← →
Anatoly Podgoretsky ©   (2006-07-23 19:24) [6]

Рассказывай

---

← →
Gydvin ©   (2006-07-23 21:31) [7]

procedure TForm1.Button1Click(Sender: TObject);
var
f:file;
s:char;
begin
assignfile(f,Filename);
reset(f,1);
seek(f,номер_байта_который_нуно_менять);
s:=#33;
blockwrite(f,s,1);
closefile(f);
end;


---

← →
Мефисто   (2006-07-23 21:47) [8]

> номер_байта_который_нуно_менять


мне вот надо байт переписать №1... :)

---

Страницы: 1 вся ветка

Текущий архив: 2006.08.13;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.056 c