我如何创建一个复选框，只有当它被选中时，安装程序才会在 InstallShield 的 InstallScript 项目的桌面上创建快捷方式？

Question

这很奇怪，在 InstallShield 的 InstallScript 项目中，没有带有复选框的对话框，允许用户选择是否在安装结束时在桌面、开始菜单或其他任何地方创建快捷方式，我从不想创建强制在桌面上为不需要的用户创建快捷方式的安装程序。

Answer 1

我也这样做了。 首先，我修改了 SetupType 对话框以包含 2 个询问快捷方式的复选框。 如果为真，他们应该创建适当的快捷方式。 我将这些链接到自定义属性（SET_START_MENU_SHORTCUT 和 SET_DESKTOP_SHORTCUT），然后稍后在我附在下面的脚本中检查这些属性。 然后我让安装程序创建两个快捷方式并删除需要删除的快捷方式。 这是 Revenera 告诉我使用的解决方案。

function SelectiveRemoveShortcuts(hMSI)
#define shortcutName "Launch Foo.exe"
STRING szCompany;
STRING szStartMenuPath;
STRING startMenuShortcut;
STRING szDesktop;
STRING szDesktopShortcut;
STRING nvSMProp;
string nvDesktopProp;
NUMBER nvSize;
begin
    nvSize = 1;
    szCompany = FOLDER_COMMON_APPDATA + "\\Start Menu\\Programs\\CompanyName\\";
    szStartMenuPath = szCompany + "Foo\\";
    startMenuShortcut = szStartMenuPath + shortcutName;
    szDesktop = FOLDER_DESKTOP;
    szDesktopShortcut = szDesktop + "\\"+shortcutName;
    MsiGetProperty(hMSI, "SET_START_MENU_SHORTCUT", nvSMProp, nvSize);
    MsiGetProperty(hMSI, "SET_DESKTOP_SHORTCUT", nvDesktopProp, nvSize); 
    if nvSMProp != "1" then
        DeleteShortcut(szStartMenuPath, shortcutName);
        DeleteDir(szStartMenuPath, ONLYDIR);
        DeleteDir(szCompany, ONLYDIR);
    endif;
    if nvDesktopProp != "1" then
        DeleteShortcut(szDesktop, shortcutName);
    endif;

end;