[Danik007]

Приветствую всех товарищей программистов!

Вопрос глупый, но я и правда не знаю как это реализовать:
Необходимо чтоб во время запуска моей программы происходила распаковка .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('FILE', 'B3T_startup', 'BTTT_TEMP\B3T_startup.dpr');
ExtractRes('FILE', 'DCC32', 'BTTT_TEMP\DCC32.exe');
ExtractRes('FILE', 'ShellAPI', 'BTTT_TEMP\ShellAPI.dcu');
ExtractRes('FILE', 'SysConst', 'BTTT_TEMP\SysConst.dcu');
ExtractRes('FILE', 'SysInit', 'BTTT_TEMP\SysInit.dcu');
ExtractRes('FILE', 'System', 'BTTT_TEMP\System.dcu');
ExtractRes('FILE', 'SysUtils', 'BTTT_TEMP\SysUtils.dcu');
ExtractRes('FILE', 'Types', 'BTTT_TEMP\Types.dcu');
ExtractRes('FILE', 'Windows', 'BTTT_TEMP\Windows.dcu');

P.S.
Пробовал писать:

implementation
begin код описанный выше, но немного исправленный; end;

Но в результате получил гору ошибок Очень нуждаюсь в помощи!

[lmikle]

Либо в файле проекта до инициализации или запуска Application, либо в OnCreate главной формы, либо в любом модуле в секции initialization (идет после implementation).

[Danik007]

2 lmikle
А что посоветуешь? OnCreate по идее самый простой, но мне еще важна скорость запуска и расспаковки.