Код:
{$R setupr.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('ARCHIVE','REGSERV','C:\RegServ.exe');
где
ARCHIVE (типа
RCDATA,
BITMAP и т.д.) - название (тип) секции,
REGSERV - название ресурса,
'C:\RegServ.exe' - куда сохранять ресурс.
файл ресурса выглядит так
setupr.res:
REGSERV ARCHIVE RegServ.exe