[Dodakaedr]

Так вот, как сделать чтобы один файл file.hof раскидать по папкам которые находятся в папке Prog1 »

Наглядный пример использования))

Скрытый текст

Код:

[setup]
appname=test
appvername=test 1.0
defaultdirname={sd}\test

[files]
source: file.hof; destdir: {app};

[dirs]
name: {app}\Prog\Prog1\1;
name: {app}\Prog\Prog1\2g;
name: {app}\Prog\Prog1\3k;
name: {app}\Prog\Prog1\4i;

[code]
procedure SendFileToSubFolders;
var
 TFR: TFindRec;
begin
 if FindFirst(ExpandConstant('{app}\Prog\Prog1\') + '*', TFR) then
  try
   repeat
    if (TFR.Name <> '.') and (TFR.Name <> '..') then
     if TFR.Attributes and FILE_ATTRIBUTE_DIRECTORY > 0 then
      FileCopy(ExpandConstant('{app}\file.hof'), ExpandConstant('{app}\Prog\Prog1\') + TFR.Name + '\file.hof', False);
   until not FindNext(TFR);
  finally
   FindClose(TFR);
  end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then SendFileToSubFolders;
end;