[ZanyGamer]

В завершающем окне есть 3 чикбокса, допустим поснимал со всех галочку, потом хочу обратно все 3 вернуть, но получается что ставится только 1 из 3

скрипт

[Setup]
SourceDir=.
OutputDir=Setup
AppName=111
AppVerName=111
AppVersion=111
AppPublisher=111
AppCopyright=111
AppPublisherURL=111
AppSupportURL=111
AppUpdatesURL=111
DefaultDirName={pf}\111
DefaultGroupName=111
AllowNoIcons=yes
OutputBaseFilename=setup
WizardImageFile=C:\Мои документы\111.bmp
WizardSmallImageFile=C:\Мои документы\111.bmp
SetupIconFile=C:\Мои документы\111.ico
WindowVisible=no
WindowShowCaption=no
WindowResizable=no
Compression=lzma/ultra
SolidCompression=yes

[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"

[Files]
Source: "C:\Мои документы\111.bmp"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak
Source: "isgsg.dll"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak
Source: "E:\Games\111\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension

[Icons]
Name: "{group}\111"; Filename: "{app}\Frozen Throne.exe"; WorkingDir: "{app}";
Name: "{userdesktop}\111"; Filename: "{app}\Frozen Throne.exe"; WorkingDir: "{app}"; Tasks: desktopicon;
Name: "{group}\111"; Filename: "{app}\BigTorrents.ru.exe"; WorkingDir: "{app}";
Name: "{userdesktop}\111"; Filename: "{app}\BigTorrents.ru.exe"; WorkingDir: "{app}"; Tasks: desktopicon;
Name: "{group}\{cm:UninstallProgram,111}"; Filename: "{uninstallexe}"

[Run]
Description: "{cm:LaunchProgram, 111}"; Filename: "{app}\111.exe"; WorkingDir: "{app}"; Flags: nowait postinstall skipifsilent
Description: "Посетить сайт"; Filename: "{app}\111.exe"; WorkingDir: "{app}"; Flags: nowait postinstall skipifsilent
Description: "Посмотреть историю версий"; Filename: "{app}\История версий.txt"; Flags: postinstall shellexec skipifsilent

[UninstallDelete]
Type: filesandordirs; Name: "{app}"

[code]
const
dURL=2;

var
URLLabel,URLLabelShadow:TLabel;

procedure ShowSplashScreen(p1:HWND;p2:string;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10:integer); external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';

procedure URLLabelClick(Sender: TObject);
var
ErrorCode:integer;
begin
ShellExec('open','http://111/','','',SW_SHOWNORMAL,ewNoWait,ErrorCode);
end;

procedure URLLabelMouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
begin
URLLabel.Top:=URLLabel.Top+dURL;
URLLabel.Left:=URLLabel.Left+dURL;
URLLabel.Font.Style:=URLLabel.Font.Style+[fsUnderline];
URLLabel.Font.Color:=clBlue;
URLLabelShadow.Visible:=False;
end;

procedure URLLabelMouseUp(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
begin
URLLabel.Top:=URLLabel.Top-dURL;
URLLabel.Left:=URLLabel.Left-dURL;
URLLabel.Font.Style:=URLLabel.Font.Style-[fsUnderline];
URLLabel.Font.Color:=clMaroon;
URLLabelShadow.Visible:=True;
end;

procedure RunListClickCheck(Sender: TObject);
var
i:integer;
begin
if WizardForm.RunList.Checked[WizardForm.RunList.ItemIndex] then begin
for i:=0 to WizardForm.RunList.Items.Count-1 do
WizardForm.RunList.Checked[i]:=False;
WizardForm.RunList.Checked[WizardForm.RunList.ItemIndex]:=True;
end;
end;

procedure InitializeWizard;
begin
WizardForm.RunList.OnClickCheck:=@RunListClickCheck;
URLLabelShadow:=TLabel.Create(WizardForm);
with URLLabelShadow do begin
Top:=ScaleY(331);
Left:=ScaleX(25);
Caption:='http://111/';
AutoSize:=True;
Parent:=WizardForm;
Transparent:=True;
Font.Color:=$00FF00;
Font.Size:=9;
Font.Style:=Font.Style+[fsBold];
end;
URLLabel:=TLabel.Create(WizardForm);
with URLLabel do begin
Top:=ScaleY(331)-dURL;
Left:=ScaleX(25)-dURL;
Caption:='http://111/';
AutoSize:=True;
Parent:=WizardForm;
Cursor:=crHand;
Transparent:=True;
Font.Color:=clBlack;
Font.Size:=9;
Font.Style:=Font.Style+[fsBold];
BringToFront;
OnClick:=@URLLabelClick;
OnMouseDown:=@URLLabelMouseDown;
OnMouseUp:=@URLLabelMouseUp;
end;
ExtractTemporaryFile('bt.bmp');
ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\bt.bmp',750,1000,750,0,255,False,$FFFFF F,10);
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if (CurPageID=wpFinished) or (CurPageID=wpInfoAfter) then
WizardForm.RunList.Checked[0]:=True;
end;