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

发布时间：2020-12-15 10:05:00 所属栏目：大数据来源：网络整理

导读：下面的代码调用SHGetSetSettings函数来隐藏桌面图标但它只是从视图菜单中取消选中“显示桌面图标”. 我打电话给SHChangeNotify(SHCNE_ASSOCCHANGED,SHCNF_FLUSHNOWAIT,nil,nil); 更新桌面,但这不起作用？ varlpss: SHELLSTATE;begin lpss.Data := High(card

下面的代码调用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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!