[Ultras]

Код:

{$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