Запись в EXE фаил

← →
Mixir © (2002-11-23 14:18) [0]

Как написать программу которая будет записывать
в другой EXE фаил строку и как этому EXE ее прочитать???
(Нужен пример).Зарание спасибо 8)

← →
ION T © (2002-11-23 14:49) [1]

Добавь строку в оверлей ехе-шника и последним двордом всунь ее длинну.

← →
Mixir © (2002-11-23 20:29) [2]

э-э-э-э А по конкретней??? (Напишите пример ПЛИЗЗЗЗЗЗЗ)

← →
ION T © (2002-11-23 22:29) [3]

Пишешь так:

const FileName = "anyfile.exe"; var f: TFileStream; s: string; size: integer; begin f:= TFileStream.Create(FileName, fmOpenReadWrite); try f.Seek(0, soFromEnd); s:= "cool"; size:= length(s); f.WriteBuffer(s[1], size); f.WriteBuffer(size, sizeof(integer)); finally f.Free end; end;

А читаешь так:

var f: TFileStream; s: string; size: integer; begin f:= TFileStream.Create(Application.ExeName, fmOpenRead or fmShareDenyNone); try f.Seek(-sizeof(integer), soFromEnd); f.ReadBuffer(size, sizeof(integer)); f.Seek(-size - sizeof(integer), soFromEnd); setlength(s, size); f.ReadBuffer(s[1], size); edit1.Text:= string(s); finally f.Free end; end;

Надеюсь понятно...

← →
Morfein © (2002-11-23 23:02) [4]

Ну да... метод ещё тот :)))

← →
Mixir © (2002-11-24 10:29) [5]

Спасибо за инфу :))

← →
Novichek © (2002-11-24 14:51) [6]

а как приклеить к экзешнику файл а потом его оттуда вытащить?

← →
ION T © (2002-11-24 15:11) [7]

Точно так же...создаешь два потока, перемещаешся в конец файла и используешь метод CopyFrom()....

> Morfein © (23.11.02 23:02)
Если ты имел в виду что можно запихнуть строку в ресурс со всеми вытекающеми отсюда фиксапами, то можно - напиши код. А можно, если длинна небольшая, то и вместо строки досового стуба записать, можно названия секций переименовать так чтобы они в сумме давали требуемую строку, можно алайнинговые дыры между секциями заполнить, может еще чего можно, но вот файл туда пихать вряд-ли стоит (ну разве что виральный код можно;)

← →
ION T © (2002-11-24 15:19) [8]

> Novichek © (24.11.02 14:51)
А, это ты про флеш спрашивал?

Если это надо при компиляции, то его в ресурс запихнет сам компилятор (линкер)....на delphibase.endimus.com есть как это делать...но можно и приведенным выше способом...

← →
Novichek © (2002-11-24 15:25) [9]

ION T © (24.11.02 15:19)
а в каком разделе смотреть?

← →
ION T © (2002-11-24 15:47) [10]

Короче создаешь flash.rc файл со строкой типа:
MyMovie Flash MyMovie.swf

Отправляешь файл на brcc32.exe кот находится в папке DelphiХ\bin\, получишь файл flash.res, а в коде своей проги напишешь {$R flash.res}. Вытягивать следующей процедурой:

procedure ExtractRes(const ResType, ResName, ResNewName: string); var Res:TResourceStream; begin Res:=TResourceStream.Create(Hinstance,Resname,Pchar(ResType)); Res.SavetoFile(ResNewName); Res.Free; end;

Вызываешь так:
ExtractRes("Flash", "MyMovie", "C:\MyMovie.swf");

открываешь "Блокнот", там пишешь нужную тебе строку, потом сохраняешь его с расширением *.rc

Novichek, Можно и *.txt файл создать ...
А строку такую в него напиши

MyMovie Flash C:\MyMovie.swf

- - -
Хотя это не принципиально ;)

Наконец то нашел ссылки в архивах.
Не оспаривая предложенные методы, предлагаю ознакомиться с обсуждением аналогичной темы в архивах
http://delphi.mastak.ru/forum/digest/?M=D
качаем файл forum-11.11.02.zip, в нем смотрим файл main74.html.

PS: если кому надо - могу выслать свои примерчики чтения/записи ресурсов (запись - только на WinNT платформе)

Запись в EXE фаил Найти похожие ветки