旧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 

如果我重新启动窗口（即正常工作或杀死资源管理器并重新启动它），但是有没有办法让旧代码工作和/或告诉桌面重新加载使用新的注册表信息，而没有这种激进的方法。

提前致谢。

Answer 1

好，这里是修订 hackish的方法（对不起亚历山大！）：

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; 

问题的出现是因为 “普罗格曼” 和SysListView32之间的父/子关系已经从XP变更为VISTA/Win7的（正是为什么你不应该使用黑客;-)。另外，在Win7下（我的测试环境）应用一个包含多个图片的主题可以进一步改变这种关系。因此，新例程将查看所有窗口，直到找到一个具有“SHELLDLL_DefView”和“SysListView32”子集的项目为止。然后它返回全局变量DeskHandle中SysListView32的句柄。不优雅，不确定在未来的代码中工作，但今天起作用。

如果任何人都可以获得SHGetSetSettings版本的工作，那绝对是正确的方法，而不是这个垃圾。

Answer 2

使用'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; 

Answer 3

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

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