| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Замена байт [D7, 2000, XP]

Alfa ©   (2006-07-23 17:51:00) 

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

---

Мефисто   (2006-07-23 21:47:00) [1]

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


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

---

Gydvin   (2006-07-23 21:31:00) [2]

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;


---

Anatoly Podgoretsky   (2006-07-23 19:24:00) [3]

Рассказывай

---

Alfa   (2006-07-23 19:23:00) [4]

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

---

Anatoly Podgoretsky   (2006-07-23 18:55:00) [5]

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

---

KilkennyCat   (2006-07-23 18:44:00) [6]

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

---

Anatoly Podgoretsky   (2006-07-23 18:42:00) [7]

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

---

Fay   (2006-07-23 17:56:00) [8]

CreateFile
SetFilePointer(Ex)
WriteFile
CloseHandle

---

Наверх