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

Question

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

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

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

Answer 1

该{commondesktop}快捷方式在通用桌面上共享。因此，该快捷方式只有一个副本。

如果允许用户删除，则当一个用户删除该图标时，该图标将被其他用户删除。这就是为什么不允许普通用户修改/删除共享快捷方式的原因。

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

如果每台计算机仅由一个用户使用，则将图标安装到userdesktop，而不是commondestop。但这仅在该用户（而非管理员）实际运行安装程序时才有效。有关此问题的一般讨论，请参阅从以管理员身份运行的Inno Setup安装程序为当前登录的用户安装应用程序。

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

简单的方法是迭代的子文件夹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查询：

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