[Danik007]

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

Вопрос глупый, но я и правда не знаю как это реализовать:
Необходимо чтоб во время запуска моей программы происходила распаковка .RES файла, как проделать такую операцию по нажатию кнопки я знаю, а вот при запуске программы тут проблема.

Вот часть кода:

Код:

1 2 3 4 5 6 7 8

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

Код:

1 2 3 4 5 6 7 8 9

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 по идее самый простой, но мне еще важна скорость запуска и расспаковки.