如何实现是桌面所有应用程序最小化?

[nik_Amis]

萨

[xfyxq]

枚举所有窗体，发送最小化消息。

[rivershan]

模拟系统热键~？

[kadina]

object.windowstaly=1

[wgku]

用记事本做个文件，后缀为.scf（或用DOS命令 EDIT MIN.scf 也行）
然后输入以下内容：

[Shell]
Command=2
IconFile=explorer.exe,3

[Taskbar]
Command=ToggleDesktop

接着保存。例如存成MIN.scf（记住不要存成MIN.scf.txt)

然后在程序中调用这个文件就可以了。至于调用方法：
可以用shellexecute或Shell命令方法可以见：

http://www.csdn.net/Expert/forum.asp?typenum=8&searchKeys=ShellE&roomid=2&author=&tabletype=now
http://www.csdn.net/Expert/forum.asp?typenum=8&searchKeys=shell&roomid=2&author=&tabletype=now

[40Star]

SendMessage(HWND_BROADCAST,WM_SYSCOMMAND,SC_MINIMIZE,0)

[doubos]

首先在工程中引用“Microsoft Shell Controls And Automation”

Private Sub Command1_Click()
Dim m_Shell As New Shell32.shell

m_Shell.MinimizeAll
End Sub

[zyl910]

http://202.98.116.66/amtd/aijun/document/0025.zip
2001.07.16 [软件报] - 用 VB 实现虚拟桌面 精 下载

[shawls]

VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Begin VB.ComboBox Combo1
Height = 300
Left = 810
TabIndex = 1
Text = "Combo1"
Top = 225
Width = 1995
End
Begin VB.CommandButton Command1
Caption = "Command1"
Height = 825
Left = 945
TabIndex = 0
Top = 1215
Width = 1635
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const VK_LWIN = &H5B
Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_APPS = &H5D
Private Const VK_PLAY = &HFA

Private Sub DoAction(Index As Integer)
Dim VK_ACTION As Long

Select Case Index
Case 0: '打开资源管理器
VK_ACTION = &H45
Case 1: '查找文件
VK_ACTION = &H46
Case 2: '最小化所有窗口
VK_ACTION = &H4D
Case 3: '运行程序
VK_ACTION = &H52
Case 4: '弹出Win菜单
VK_ACTION = &H5B
Case 5: '将计算机转入睡眠状态
VK_ACTION = &H5E
Case 6: '执行Windows帮助
VK_ACTION = &H70
End Select

Call keybd_event(VK_LWIN, 0, 0, 0)
Call keybd_event(VK_ACTION, 0, 0, 0)
Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
End Sub

Private Sub Command1_Click()
DoAction (Val(Combo1.Text))
End Sub

Private Sub Form_Load()
Combo1.AddItem "0"
Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
Combo1.AddItem "4"
Combo1.AddItem "5"
Combo1.AddItem "6"
End Sub

[孙小雄]

good

[nik_Amis]

不好意思,晚了!