inno setup 自定义桌面快捷方式

[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;