Inno Setup with Three Destination Folders

Question

I need to create a simple Inno Setup installer to copy three different sets of files into three folders that the user selects for C: or D: etc.

These are simply files in which there is no application.

I found one script, "Requesting an additional folder for data," but there was only one folder on the next page.

Thanks.

eg:

http://badjohnny.com.au/temp/myinno.jpg

Edit: this is the code I received:

[Setup] AppName=MyProg AppVerName=MyProg DefaultDirName={pf}\MyProg DisableProgramGroupPage=yes UninstallDisplayIcon={app}\MyProg.exe [Files] ;Main program that will be installed in {app} folder Source: MyProg.exe; DestDir: {app} ;Database file that will installed where user choosed Source: DataBase.mdb; DestDir: {code:GetDataDir} 

 [Code] var DataDirPage: TInputDirWizardPage; procedure InitializeWizard; begin { Create the page } DataDirPage := CreateInputDirPage(wpSelectDir, 'Select Personal Data Directory', 'Where should personal data files be installed?', 'Select the folder in which Setup should install personal data files, ' + 'then click Next.', False, ''); DataDirPage.Add(''); DataDirPage.Values[0] := GetPreviousData('DataDir', ''); end; procedure RegisterPreviousData(PreviousDataKey: Integer); begin { Store the selected folder for further reinstall/upgrade } SetPreviousData(PreviousDataKey, 'DataDir', DataDirPage.Values[0]); end; function NextButtonClick(CurPageID: Integer): Boolean; begin { Set default folder if empty } if DataDirPage.Values[0] = '' then DataDirPage.Values[0] := ExpandConstant('{sd}\DataDir'); Result := True; end; function UpdateReadyMemo(Space, NewLine, MemoUserInfoInfo, MemoDirInfo, MemoTypeInfo, MemoComponentsInfo, MemoGroupInfo, MemoTasksInfo: String): String; var S: String; begin { Fill the 'Ready Memo' with the normal settings and the custom settings } S := ''; S := S + MemoDirInfo + NewLine + NewLine; S := S + 'Database path' + NewLine; S := S + Space + DataDirPage.Values[0] + NewLine; Result := S; end; function GetDataDir(Param: String): String; begin { Return the selected DataDir } Result := DataDirPage.Values[0]; end; 

Answer 1

You can write something like the following:

 [Setup] AppName=My Program AppVersion=1.5 DefaultDirName={pf}\My Program [Files] ; the parameter passed to the GetDir function here is the index of a directory ; input page item, so the following 3 files will be installed each into one of ; the directories specified in the input page items Source: "File1.txt"; DestDir: "{code:GetDir|0}" Source: "File2.txt"; DestDir: "{code:GetDir|1}" Source: "File3.txt"; DestDir: "{code:GetDir|2}" 

 [Code] var DirPage: TInputDirWizardPage; function GetDir(Param: String): String; begin Result := DirPage.Values[StrToInt(Param)]; end; procedure InitializeWizard; begin { create a directory input page } DirPage := CreateInputDirPage( wpSelectDir, 'Caption', 'Description', 'SubCaption', False, ''); { add directory input page items } DirPage.Add('Prompt 1'); DirPage.Add('Prompt 2'); DirPage.Add('Prompt 3'); { assign default directories for the items from the previously stored data; if } { there are no data stored from the previous installation, use default folders } { of your choice } DirPage.Values[0] := GetPreviousData('Directory1', 'C:\HardcodedPath'); DirPage.Values[1] := GetPreviousData('Directory2', ExpandConstant('{userdocs}')); DirPage.Values[2] := GetPreviousData('Directory3', ExpandConstant('{localappdata}')); end; procedure RegisterPreviousData(PreviousDataKey: Integer); begin { store chosen directories for the next run of the setup } SetPreviousData(PreviousDataKey, 'Directory1', DirPage.Values[0]); SetPreviousData(PreviousDataKey, 'Directory2', DirPage.Values[1]); SetPreviousData(PreviousDataKey, 'Directory3', DirPage.Values[2]); end; 

---

To handle the standard "installation directory", see:
Use two / more selected directories from the user page in the Files section