本文整理自网络,侵删。
//隐藏桌面图标
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 进程通讯之wm_copydata 发送程序(senddata.exe)
Delphi提示‘error loading midas.dll’的原因及解决方案
Delphi xe5 将Delphi code从winos 迁移到ios与android
Delphi 关于 beep、messagebeep 和 windows.beep
Delphi tstringlist indexof find 查找字符串
更多相关阅读请进入《Delphi》频道 >>