Inno Setup 在所有用户的所有桌面上创建单独的快捷方式答案

【问题标题】：Inno Setup Create individual shortcuts on all desktops of all usersInno Setup 在所有用户的所有桌面上创建单独的快捷方式
【发布时间】：2016-02-05 12:53:13
【问题描述】：

我正在使用 Inno Setup 在用户桌面上创建快捷方式：

Name: "{commondesktop}\Setup"; Filename: "{app}\Setup.exe"; WorkingDir: "{pf}\Program"; IconFilename: "{app}\Setup.ico"

但是没有管理员权限的用户不能删除这个快捷方式，如何授予普通用户权限，删除这个图标？图标应该在每个用户的桌面上创建，但用户应该有权删除它。

【问题讨论】：

标签： permissions inno-setup desktop desktop-shortcut windows-shortcut

【解决方案1】：

{commondesktop} 快捷方式在通用桌面上共享。所以快捷方式只有一个副本。

如果您允许用户删除，当一个用户删除该图标时，它会为其他所有用户删除。这就是不允许普通用户修改/删除共享快捷方式的原因。

虽然您可以向所有用户授予对该快捷方式的删除权限，但这不是您应该做的。

如果每台机器仅供一个用户使用，请将图标安装到userdesktop，而不是commondestop。但这仅在该用户（不是管理员）实际运行安装程序时才有效。有关此问题的一般讨论，请参阅Installing application for currently logged in user from Inno Setup installer running as Administrator。

没有简单的方法可以将图标安装到所有桌面。您必须使用 Pascal 脚本并迭代所有配置文件。

简单的方法是迭代C:\Users的子文件夹，在每个用户子文件夹的Desktop子文件夹中创建一个快捷方式：

procedure CurStepChanged(CurStep: TSetupStep);
var
  UsersPath: string;
  CommonDesktopShortPath: string;
  DesktopPath: string;
  ShortcutPath: string;
  FindRec: TFindRec;
  ShortcutsCount: Integer;
begin
  { Once the files are installed }
  if CurStep = ssPostInstall then
  begin
    Log('Creating shortcuts');
    { Assuming the common users root (typically C:\Users) is two level up }
    { from the current user desktop folder }
    UsersPath :=
      AddBackslash(ExtractFilePath(RemoveBackslash(ExtractFilePath(
        RemoveBackslash(ExpandConstant('{userdesktop}'))))));
    Log(Format('Users root [%s]', [UsersPath]));
    CommonDesktopShortPath := GetShortName(ExpandConstant('{commondesktop}'));
    Log(Format('Common desktop [%s]', [CommonDesktopShortPath]));

    ShortcutsCount := 0;

    { Iterate all users }
    if FindFirst(UsersPath + '*', FindRec) then
    begin
      try
        repeat
          { Just directories, not interested in files }
          if FindRec.Attributes and FILE_ATTRIBUTE_DIRECTORY <> 0 then
          begin
            { Check if there is a Desktop subfolder }
            DesktopPath := UsersPath + FindRec.Name + '\Desktop';
            if DirExists(DesktopPath) then
            begin
              if CompareText(
                   CommonDesktopShortPath, GetShortName(DesktopPath)) = 0 then
              begin
                Log(Format('Skipping common desktop [%s]', [DesktopPath]));
              end
                else
              begin
                ShortcutPath := DesktopPath + '\My Program.lnk';
                Log(Format(
                  'Found desktop folder for user [%s], creating shortcut [%s]', [
                  FindRec.Name, ShortcutPath]));
                try
                  ShortcutPath := CreateShellLink(
                    ShortcutPath, 'My Program', ExpandConstant('{app}\MyProg.exe'), '',
                    ExpandConstant('{app}'), '', 0, SW_SHOWNORMAL);
                  Log(Format('Shortcut [%s] created', [ShortcutPath]));
                  Inc(ShortcutsCount);
                except
                  Log(Format('Failed to create shortcut: %s', [GetExceptionMessage]));
                end;
              end;
            end;
          end;
        until not FindNext(FindRec);
      finally
        FindClose(FindRec);
      end;

      Log(Format('%d shortcuts created', [ShortcutsCount]));
    end
      else
    begin
      Log(Format('Error listing [%s]', [UsersPath]));
    end;
  end;
end;

仅当桌面位于本地且位于公共位置时，该代码才有效。

如果您需要更强大的解决方案，您可以迭代

中列出的配置文件

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList

或者使用 WMI 查询，例如：

SELECT * FROM Win32_UserAccount WHERE localAccount = true and disabled = false

见Query list of Windows accounts in Inno Setup。

【讨论】：