本文整理自网络,侵删。
//隐藏桌面图标
var
hDesktop : THandle;
begin
hDesktop := FindWindow(′Progman′, nil);
ShowWindow(hDesktop, SW_HIDE);
end;
//显示桌面图标
var
hDesktop : THandle;
begin
hDesktop := FindWindow(′Progman′, nil);
ShowWindow(hDesktop, SW_show);
end;
相关阅读 >>
Delphi 10.3 调试程序时出错:unable to create process:请求的操作需要提升
Delphi (user agent) of a twebbrowser
更多相关阅读请进入《Delphi》频道 >>