[audiofeel]

Tco 03, после запроса диска ложу фаилы со второго диска = ноль эмоций, молчание

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

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

[Files]
Source: {src}\GameFiles\*; DestDir: {app}; Flags: external ignoreversion

Source: {src}\GameFiles\GAME3.DAT; DestDir: {app}; Flags: external ignoreversion; BeforeInstall: CopySecondFolder
Source: {src}\GameFiles\GAME5.DAT; DestDir: {app}; Flags: external ignoreversion; BeforeInstall: CopySecondFolder
Source: {src}\GameFiles\GAME6.DAT; DestDir: {app}; Flags: external ignoreversion; BeforeInstall: CopySecondFolder
Source: {src}\Docs\GB\Eula.rtf; DestDir: {app}\Docs; Flags: external ignoreversion; BeforeInstall: CopySecondFolder
Source: {src}\Docs\GB\Readme.rtf; DestDir: {app}\Docs; Flags: external ignoreversion; 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}\GameFiles\GAME3.DAT')) 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;