Delphi 11.2 创建桌面图标时删除其他图标问题排查求助

代码本身的潜在隐患 #

你的代码没有直接执行删除文件的逻辑，但存在几个可能触发意外行为的缺陷：

1. 依赖过时的注册表项获取系统文件夹路径 #

代码通过读取Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders注册表项获取桌面、开始菜单等路径，这个项是Windows旧版兼容接口，微软早已废弃，推荐使用SHGetFolderPath（WinXP+）或SHGetKnownFolderPath（Vista+）API获取标准系统文件夹路径。

• 风险：部分系统或被第三方软件篡改的注册表中，该项可能返回错误路径甚至空值；如果是32位程序运行在64位系统上，会因注册表重定向（自动指向Wow6432Node分支）读取到错误的路径，导致后续操作指向非预期目录。

2. 未处理目标目录不存在的情况 #

当指定SubFolder时，代码直接拼接路径但未检查或创建该子目录：

WFileName := Directory + '\' + SubFolder + '\' + LinkName;

如果子目录不存在，IPersistFile.Save会失败，但不会删除文件。不过在某些权限异常的场景下，错误的路径可能触发系统的意外行为。

3. 64位兼容性问题 #

代码中使用的TRegIniFile和TRegistry默认在32位程序运行于64位系统时，会访问32位注册表分支，导致读取的系统文件夹路径与实际用户目录不符。

非代码层面的可能原因 #

1. 用户权限与运行身份 #

• 若程序以管理员身份运行，会使用管理员的用户配置文件，此时获取的桌面路径是管理员桌面，而非当前登录用户的桌面，部分用户会误将管理员桌面的图标缺失当成自己桌面的图标被删除。
• 桌面目录权限异常：如果用户桌面的NTFS权限被篡改，程序创建快捷方式时可能触发系统文件保护机制，导致部分图标被误删（罕见但存在可能性）。

2. 系统与第三方软件干扰 #

• Win10/11特定更新版本中，系统图标缓存或OneDrive桌面同步功能，可能在快捷方式创建时出现异常，导致图标不显示（实际文件未删除，但用户感知为被删除）。
• 第三方安全软件误判：部分杀毒、清理工具可能将快捷方式创建行为视为恶意操作，误删其他桌面图标。

修复建议 #

1. 替换系统文件夹路径获取方式：使用SHGetKnownFolderPathAPI替代注册表读取，示例代码：

uses Winapi.ShlObj, Winapi.Windows, System.SysUtils;

function GetKnownFolderPath(FolderID: TKnownFolderID): string;
var
  Path: PWideChar;
begin
  if SHGetKnownFolderPath(FolderID, 0, 0, Path) = S_OK then
  try
    Result := Path;
  finally
    CoTaskMemFree(Path);
  end
  else
    Result := '';
end;

// 使用示例
var
  DesktopPath, ProgramsPath: string;
begin
  DesktopPath := GetKnownFolderPath(FOLDERID_Desktop);
  ProgramsPath := GetKnownFolderPath(FOLDERID_Programs);
end;

2. 添加目录创建逻辑：在保存快捷方式前，检查并创建目标目录：

var
  TargetDir: string;
begin
  // 拼接快捷方式路径前先提取目标目录
  TargetDir := ExtractFilePath(WFileName);
  if not TDirectory.Exists(TargetDir) then
    TDirectory.CreateDirectory(TargetDir);
  // 执行保存操作
  MyPFile.Save(PWideChar(WFileName), True);
end;

3. 确保注册表访问的64位兼容性：如果是32位程序需要访问64位注册表分支，创建TRegistry时指定KEY_WOW64_64KEY：

reg := TRegistry.Create(KEY_WOW64_64KEY);

内容的提问来源于stack exchange，提问作者Brian D. Warner