[Tco 03]

audiofeel

у меня на каждом диске лежит папка с одинаковым названием »

Если папки одинаковые, тогда делайте проверку на присутствие файлов...
Вот набросал пример (с разными папками) какая разница с какими именами папки на диске, они же копируются в заданный каталог, где указывается что и куда скопировать.

читать дальше »

Код:

[Setup]
AppName=My Program
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program
OutputBaseFilename=setup
Compression=none
OutputDir=.
SolidCompression=no

[Files]
Source: "{src}\Folder 1\*"; DestDir: "{app}"; Flags: external ignoreversion recursesubdirs createallsubdirs;
Source: "{src}\Folder 2\*"; DestDir: "{app}"; Flags: external ignoreversion recursesubdirs createallsubdirs; BeforeInstall: CopySecondFolder;

[ Code]
procedure CancelButtonClick(CurPage: Integer; var Cancel, Confirm: Boolean);
begin
  Cancel:= True;
if CurPage = 12 then
begin
  Confirm:= False;
end;
end;

procedure CopySecondFolder;
var
 Confirm: Boolean;
begin
if not DirExists(ExpandConstant('{src}\Folder 2')) then
case MsgBox('Для дальнейшей установки необходм второй диск!'#13#13 +
  'Вставьте второй DVD и нажмите "OK".' #13#13 +
  'Нажмите "Отмена", чтобы прекратить дальнейшую установку.', mbInformation, MB_OKCANCEL)
of IDCANCEL:
begin
  Confirm:= False;
  WizardForm.CancelButton.OnClick(WizardForm.CancelButton);
end
  IDOK:
begin
  CopySecondFolder;
end;
end;
end;