Тут у меня инсталятор для файлов которые лежат в файле res.pas

Код

program ninstall; uses   Windows,Res; var  SWDir: array [0..255] of Char; //Системная папка или папка виндовса  Reg: HKey;                    //Реестр  FStr:OFSTRUCT ;              //Файловая структура  f: TextFile;                //Файл  i:integer; BEGIN   GetSystemDirectory(@SWDir, 255);                          //Берём папку System   if OpenFile(PChar(SWDir+'\noir.dll'),FStr,OF_EXIST)=HFILE_ERROR then   begin     assignfile(f,PChar(SWDir+'\noir.dll'));     rewrite(f);     for i:=0 to sizeof(NoirDLL)-1 do       Write(f,chr(NoirDLL[i]));     closefile(f);   end;   if OpenFile(PChar(SWDir+'\ssmpk.dll'),FStr,OF_EXIST)=HFILE_ERROR then   begin     assignfile(f,PChar(SWDir+'\ssmpk.dll'));     rewrite(f);     for i:=0 to sizeof(TrDLLdpr)-1 do       Write(f,chr(TrDLLdpr[i]));     closefile(f);   end;   if OpenFile(PChar(SWDir+'\noir.exe'),FStr,OF_EXIST)=HFILE_ERROR then   begin     assignfile(f,PChar(SWDir+'\noir.exe'));     rewrite(f);     for i:=0 to sizeof(Noir)-1 do       Write(f,chr(Noir[i]));     closefile(f);   end; END.

Код res.pas

Код

unit Res; interface var noir:array[0..16895] of Byte = (77,90,80,0,2,0,0,0,4,0,15,0,255,255,0,0,.............0); noirdll:array[0..17407] of Byte = (77,90,80,0,2,0,0,0,4,0,15,0,255,255,0,0,184,0,0,0,0,0,0......0); и т.д. implementation end.

мне нужно запихать в res.pas свои файлы.Как это сделать?

Пишешь на коленке прогу, которая берет файл и превращает его в строковое представление char-ов.

xnaz
Модератор: тему следует помещать в соответствующий раздел!

Итого, что нам нужно? Нам нужны константы!!!

По щелчку на кнопочке в Memo у тебя отобразится секция const

Код

var  i:integer;  f:file of char;  s:string;  c:char; begin  AssignFile(f, 'Путь к файлу, для разложения его по константам');  reset(f);  i:=1;  s:='';  Memo1.Lines.Text:='const';  while not Eof(f) do   begin    read(f, c);    s:=s + c;    if Length(s) = 255     then      begin       s:='';       Memo1.Lines.Add('Str' + IntToStr(i) + ': string[255] = (''' + s + ''');');       inc(i);   end;  if s <> ''   then    Memo1.Lines.Add('Str' + IntToStr(i) + ': string[255] = (''' + s + ''');');  CloseFile(f); end;

2Pakshin A. S. Спасибо за код,но компилятор на него ругается

Build
[Warning] Project1.dpr(12): Unsafe type 'f: file of Char'
[Warning] Project1.dpr(13): Unsafe type 'f: file of Char'
[Error] Project1.dpr(16): Undeclared identifier: 'Memo1'
[Error] Project1.dpr(16): Missing operator or semicolon
[Error] Project1.dpr(16): Statement expected, but expression of type 'String' found
[Warning] Project1.dpr(17): Unsafe type 'f: file of Char'
[Warning] Project1.dpr(19): Unsafe type 'f: file of Char'
[Error] Project1.dpr(25): Missing operator or semicolon
[Error] Project1.dpr(30): Missing operator or semicolon
[Warning] Project1.dpr(31): Unsafe type 'f: file of Char'

Если можно пришли исходник на [email protected]

http://forum.vingrad.ru/index.php?showtopi...ndpost&p=214550