[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{group}\{cm:UninstallProgram,{#MyUninstallName}} "; Filename: "{uninstallexe}"
Name: "{code:GetDesktopFolder}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}";
[Run]
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent
[Code]
var
CheckListBox: TNewCheckListBox;
procedure InitializeWizard();
begin
{协议默认为我同意}
WizardForm.LICENSEACCEPTEDRADIO.Checked := true;
{创建桌面快捷方式}
CheckListBox := TNewCheckListBox.Create(WizardForm.SelectProgramGroupPage);
CheckListBox.Top := 160;
CheckListBox.Width := 300;
CheckListBox.Height := ScaleY(97);
CheckListBox.BorderStyle := bsNone;
CheckListBox.ParentColor := True;
CheckListBox.MinItemHeight := WizardForm.TasksList.MinItemHeight;
CheckListBox.ShowLines := False;
CheckListBox.WantTabs := True;
CheckListBox.Parent := WizardForm.SelectProgramGroupPage;
CheckListBox.AddRadioButton('只为当前用户创建快捷方式', '', 0, True, True, nil);
CheckListBox.AddRadioButton('为所有用户创建快捷方式', '', 0, False, True, nil);
end;