旧的 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。

Answer 2

好的，这是修改后的 hackish 方法（对不起，Alexander！）：

var
DeskHandle : HWND;

...

///////////////////////////////////////////////////////////////////////
// Callback function for EnumWindows
///////////////////////////////////////////////////////////////////////
function MyGetWindow (Handle: HWND; NotUsed: longint): bool; stdcall;
var
  hChild : HWND;
begin
  if handle <> 0 then
  begin
    hChild := FindWindowEx(handle, 0, 'SHELLDLL_DefView' ,nil);
    if hChild <> 0 then
    begin
      hChild := FindWindowEx(hChild, 0, 'SysListView32' ,nil);
      if hChild <> 0 then
      begin
        DeskHandle := hChild;
      end;
    end;
  end;
  result := TRUE;
end;

procedure ShowDesktopIcons(const Show : boolean) ;
begin
  DeskHandle := 0;
  EnumWindows(@MyGetWindow, 0);

  if DeskHandle <> 0 then
  begin
    if Show then
    begin
      ShowWindow(DeskHandle, SW_SHOW );
    end
    else
    begin
      ShowWindow(DeskHandle, SW_HIDE );
    end;
  end;
end;

出现问题是因为“Progman”和 SysListView32 之间的父/子关系已从 XP 更改为 Vista/Win7（这正是您不应该使用 hack 的原因 ;-)。另外，在Win7（我的测试环境）下应用一个多图主题，更进一步改变了这种关系。因此，新例程会查看所有窗口，直到找到一个在其中一个下设置了“SHELLDLL_DefView”和“SysListView32”子级的窗口。然后它在全局变量 DeskHandle 中返回 SysListView32 的句柄。不优雅，不确定在未来的代码中是否可以使用，但可以在今天使用。

如果有人可以让 SHGetSetSettings 版本工作，那绝对是正确的方法，而不是这种垃圾。

Answer 3

使用“ProgMan”而不是“程序管理器”。
适用于 Win 7 32 位（这里没有我的 64 位）。

procedure ShowDesktopIcons(const Visible: Boolean);
var
  h: THandle;
begin
  h := FindWindow('ProgMan', nil);
  if h = 0 then
    RaiseLastOSError;
  if Visible then
    ShowWindow(h, SW_SHOW)
  else
    ShowWindow(h, SW_HIDE);
end;

procedure TForm1.btnHideClick(Sender: TObject);
begin
  ShowDesktopIcons(False);
end;

procedure TForm1.btnShowClick(Sender: TObject);
begin
  ShowDesktopIcons(True);
end;