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

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

赖皮鹏

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

阅读量2.4k

点赞数

分类专栏： Delphi 文章标签： delphi function xp

Delphi 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

一般在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;