Работает с IS v. 5.4.1 + расширенная версия от рестулс Но это не страшно, потому, что сам Need for Speed™ Undercover [2.4c] работает тоже на расширенной версии
Код: Выделить всё
[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma2/ultra
InternalCompressLevel=ultra
SolidCompression=yes
[Tasks]
Name: desktopicon; Description: Create a &desktop icon; GroupDescription: Additional icons:
Name: desktopicon\common; Description: For all users; GroupDescription: Additional icons:; Flags: exclusive
Name: desktopicon\user; Description: For the current user only; GroupDescription: Additional icons:; Flags: exclusive unchecked
Name: quicklaunchicon; Description: Create a &Quick Launch icon; GroupDescription: Additional icons:; Flags: unchecked
Name: associate; Description: &Associate files; GroupDescription: Other tasks:
[Code]
procedure TasksListClickCheck(Sender: TObject);
var
Item: Integer;
begin
Item := WizardForm.TasksList.Items.IndexOf('&Associate files');
if WizardForm.TasksList.ItemIndex = Item then
WizardForm.TasksList.Checked[item] := True;
end;
procedure InitializeWizard();
begin
WizardForm.TasksList.OnClickCheck := @TasksListClickCheck;
end;