Приветствую всех товарищей программистов!
Вопрос глупый, но я и правда не знаю как это реализовать:
Необходимо чтоб во время запуска моей программы происходила распаковка .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;
Но в результате получил гору ошибок
Очень нуждаюсь в помощи!