delphi - 旧的 Delphi 隐藏/显示桌面图标方法在 Windows 7 64 位下不起作用

Question

我有一个 Delphi 2010 应用程序，可以在 XP 下很好地显示/隐藏桌面图标。但是在我的 Window 7 测试环境(恰好是 64 位)下图标不会消失。

这是我正在使用的关键代码(用于隐藏):

ShowWindow(FindWindow(nil, 'Program Manager'), SW_HIDE );

我发现我可以设置注册表:

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]
"HideIcons"=dword:00000001

如果我重新启动Windows(或杀死资源管理器并重新启动它)，效果很好，但是有没有办法让旧代码工作和/或告诉桌面使用新的注册表信息重新加载，而无需这种激进的方法。

提前致谢。

Answer 1

使用SHGetSetSettings function 。您对 fHideIcons 字段和相应的 SSF_HIDEICONS 标志感兴趣。

或者，您可以使用 corresponding group policy .