[Delphi]显示、隐藏桌面图标

最新推荐文章于 2020-07-10 11:51:22 发布

转载最新推荐文章于 2020-07-10 11:51:22 发布 · 2.5k 阅读

文章标签：

#delphi #function #xp

Delphi 专栏收录该内容

3 篇文章

订阅专栏

本文介绍了一种在不同Windows版本中（包括XP、Vista和Win7）控制桌面图标显示状态的方法。通过Delphi编程实现了桌面窗口句柄的获取，并提供了隐藏及显示桌面图标的实用代码。

一般在XP下可以这样，先获取桌面窗口句柄，然后隐藏或显示

var
    h: HWND;
begin
  h := FindWindow('Progman', nil);  //Progman 是桌面窗口的类名
  ShowWindow(h, SW_HIDE);            //hide desktop icon
  ShowWindow(h, SW_RESTORE);        //display desktop icon
end;

在win7下，直接获取progman的句柄就不好用了，只能通过下面的方法

//兼容win7 vista xp 的桌面嵌入代码(delphi)
procedure findDesktopWnd;
  Function MyEnumWindowProc(wnd: HWND; LPARAM: LPARAM): Boolean; stdcall;
  var
  sndWnd, targetWnd: Cardinal;
  begin
  sndWnd := FindWindowEx(wnd, 0, 'SHELLDLL_DefView', 0);
  if sndWnd = 0 then
  begin
  Result := true;
  Exit;
  end;
  targetWnd := FindWindowEx(sndWnd, 0, 'SysListView32', 'FolderView');
  if targetWnd = 0 then
  begin
  Result := true;
  Exit;
  end;
  deskTopHandel := wnd;
  Result := false;
  end;

begin
  EnumWindows(@MyEnumWindowProc, 0);
end;