显示桌面(50分)

  • 主题发起人 主题发起人 halqj
  • 开始时间 开始时间
H

halqj

Unregistered / Unconfirmed
GUEST, unregistred user!
我采用XP+D7,想实现显示桌面功能,找了半天,不理想,请大家帮助一下,我的是一个按钮来实现的
 
遍历所有窗口 全部最小化
或 模式 窗口键+D键
 
var
o : OleVariant;
begin
o := CreateOleObject('Shell.Application');
o.ToggleDesktop;
end;
 
uses comobj;
 
多人接受答案了。
 
后退
顶部