А можно вот так...
Создаешь в текстовом редакторе файл "xxxxxxxxx.rc"
в нем пишешь, например: shareware INCFILE shareware.pas
название файла - твое, если файл ресурса сидит далеко не в корне этого каталога - укажи путь к нему
потом скомпили свой RC файл программой brcc32.exe и подключи получившийся файл xxxxxxxxxxx.res к нужному модулю командой
{$R xxxxxxxxxxx.res}
procedure ExtractRes(ResType, ResName, ResNewName : String);
var
Res : TResourceStream;
begin
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
Res.SavetoFile(ResNewName);
Res.Free;
end;
Для извлечения (пишешь в обработчике)
ExtractRes('INCFILE', 'shareware', 'shareware.pas');
Вот собственно и все - запихали в файл все, что надо, а потом вынимаем по необходимости.
З.Ы. Таким образом в один exe можно напихать туеву хучу других, а потом вынимать и запускать.......
|