Проблема с Blockwrite

[inndim]

Подскажите пожалуйста как мне быть, хочу изменить в файле пару байтов таким вот макаром:

procedure TForm1.Button1Click(Sender: TObject);
var
Ch:Byte;
F:File of Byte;
begin
 Assignfile(F,'datafile.bpl');
 Reset(F);
 Seek(F,$478AEE);
 Ch:=$74;
 Blockwrite(F,Ch,1);
 Seek(F,$478B0E);
 Blockwrite(F,Ch,1);
 closefile(f);
end;

но в итоге ничего не меняется, а файл становится в 2 раза больше по размеру т.е. был 2.2мб а становится 4.6.
Хотя если брать простой ехе файл, и описанным выше способом поменять в нужных местах нужные байты, то всё нормально меняется, а вот с bpl ну никак.
Как с этим бороться?
вот ссылка примером и bpl файлом http://www.onlinedisk.ru/file/98378/

[Somebody]

Такое, оказывается, тоже компилируется, но вообще всегда было:
если file of smth, то Write,
если просто file, то BlockWrite.
Попробуй просто Write(f, Ch), либо f:file и Reset(f,1).

[Serge_Bliznykov]

вот Вы странный человек!

как по Вашему, что делает операция

Seek(F,$478AEE);

???

она устанавливает файловый указатель на позицию (смещение) 4688622 байт от начала файла.
После записи по этому смещению Вы и получаете файл такого размера!
Корректируйте смещение, по которому хотите изменять данные! (p.s. кстати, прежде чем что-то записать - неплохо проверить, что размер файла совпадает с нужным, и что по указанному смещению находятся нужные байты... Это просто повысит "дуракозащищённость" Вашей программы!)

[inndim]

Somebody
Не помогает увы.
Serge_Bliznykov

она устанавливает файловый указатель на позицию (смещение) 4688622 байт от начала файла.

Тогда я совсем запутался, ведь 478AEE я беру из дизассемблера, т.е. открываю datafile.bpl в дизассемблере hiew, нахожу нужную строку и она имеет адрес 00478AEE, бррр..., надо подумать.

[Somebody]

Это, похоже, адрес, по которому это будет в памяти загруженной проги, а не смещение в exe.

[CahekG]

Ехе после загрузки в память в соответствии с заголовком распределяется в памяти и может занимать объём превышающий сам файл, а так-же начинаться не с 0 адреса. Смещение проще Hex редактором найти при просмотре файла, а потом уже его указать в seek(f, .... )

[Serge_Bliznykov]

inndim, господа Somebody и CahekG абсолютно правы (для подробностей читаем описание формата executable 32/ PE32)

а Вы попробуйте в HIEW (в режиме кода) нажать Ctrl-F5 и выбрать BASE +00000000

ну получилось смещение от начала файла??..
если нет - записывайте байтики и потом просто ищите их (не переходите в режим дизассемблера!)

[inndim]

Somebody, CahekG
Спасибо вам большое за информацию к размышлению.

Serge_Bliznykov
Всё сделал в HIEW как вы написали, и о чудо, всё наконец-то получилось!
Спасибо вам за помощь, и снимаю шляпу.