delphi – 如何使“显示/隐藏桌面图标”设置生效?

前端之家收集整理的这篇文章主要介绍了delphi – 如何使“显示/隐藏桌面图标”设置生效?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
下面的代码调用SHGetSetSettings函数来隐藏桌面图标
但它只是从视图菜单中取消选中“显示桌面图标”.

我打电话给SHChangeNotify(SHCNE_ASSOCCHANGED,SHCNF_FLUSHNOWAIT,nil,nil);
更新桌面,但这不起作用?

var
lpss: SHELLSTATE;
begin
  lpss.Data := High(cardinal);
  lpss.Data2 := Low(cardinal);
  SHGetSetSettings(lpss,SSF_HIDEICONS,true);
  SHChangeNotify(SHCNE_ASSOCCHANGED,nil);
end;

解决方法

isa,要刷新桌面,您可以将F5键发送到progman(程序管理器)窗口
PostMessage(FindWindow('Progman',nil),WM_KEYDOWN,VK_F5,3);

隐藏桌面图标的另一种方法

ShowWindow(FindWindow('Progman',SW_HIDE); //hide the icons desktop and refresh the screen

再次显示

ShowWindow(FindWindow('Progman',SW_SHOW); //show the icons of the desktop and refresh

猜你在找的Delphi相关文章