舊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。