Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Public Enum EnumAction eaResourceBrowser = 0 eaSearchFile = 1 eaMiniWindows = 2 eaRunFile = 3 eaStartMenu = 4 eaSleep = 5 eaWindowsHelp = 6 End EnumPublic Sub DoAction(eIndex As EnumAction) Dim VK_ACTION As Long Select Case eIndex Case 0: 'Open Resource Browser VK_ACTION = &H45 Case 1: 'Search File VK_ACTION = &H46 Case 2: 'Mini Windows VK_ACTION = &H4D Case 3: 'Run VK_ACTION = &H52 Case 4: 'Start Menu VK_ACTION = &H5B Case 5: 'Sleep VK_ACTION = &H5E Case 6: 'Open Windows Help 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
一些应用软件提供了一种方便的功能,只需要一个操作就可以将Windows桌面上的 所有窗口最小化。首先,我们要遍历桌面上的所有窗口;其次,要判断窗口类型, 桌面上的很多窗口无法最小化,或者窗口是不可见的,如中文Win 95中的输入法窗 口。最后,将类型符合的窗口最小化。下面通过程序来介绍如何实现这种功能。 首先,在Project中加入一个Module文件;然后,在Module中加入以下代码: Public Declare Function EnumWindows Lib "user32" _ (ByVal lpEnumFunc As Long, ByVal lParam _ As Long) As Long Declare Function GetWindowLong Lib "user32" Alias _ "GetWindowLongA" (ByVal hwnd As Long, _ ByVal nIndex As Long) As Long Declare Function ShowWindow Lib "user32" (ByVal _ hwnd As Long, ByVal nCmdShow As Long) As Long Public Const WS_MINIMIZEBOX = &H20000 Public Const WS_VISIB
一些应用软件提供了一种方便的功能,只需要一个操作就可以将Windows桌面上的所有窗口最小化。首先,我们要遍历桌面上的所有窗口;其次,要判断窗口类型,桌面上的很多窗口无法最小化,或者窗口是不可见的,如中文Win 95中的输入法窗口。最后,将类型符合的窗口最小化。下面通过程序来介绍如何实现这种功能。 首先,在Project中加入一个Module文件;然后,在Module中加入以下代码: Public Declare Function EnumWindows Lib "user32" _ (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _ (ByVal hwnd As Long, ByVal nIndex As Long) As Long Declare Function ShowWindow Lib "user32" (ByVal _ hwnd As Long, ByVal nCmdShow As Long) As Long Public Const WS_MINIMIZEBOX = &H20000 Public Const WS_VISIBLE = &H10000000 Public Const GWL_STYLE = (-16) Public Const SW_MINIMIZE = 6 '该函数是EnumWindows的回调函数, 'EnumWindows函数将遍历的窗口句柄传递到hwnd参数中 Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Long Dim l As Long Dim ld As Long ld = GetWindowLong(hwnd, GWL_STYLE) '如果窗口具有最小化按钮并且窗口是可见的就将该窗口最小化 If ((ld And WS_MINIMIZEBOX) = WS_MINIMIZEBOX) Then If ((ld And WS_VISIBLE)) Then If ShowWindow(hwnd, SW_MINIMIZE) Then End If End If End If EnumWindowsProc = True End Function 然后在Form1中添加一个CommandButton,并在Form1的代码窗口中添加以下代码: Private Sub Command1_Click() Dim l As Long '遍历所有的窗口 l = EnumWindows(AddressOf EnumWindowsProc, 0) End Sub 运行上面的程序,点击CommandButton,桌面上的所有窗口就会被最小化。在上面的例程中,我们首先调用EnumWinodws函数遍历所有的窗口,每当函数遍历到一个窗口,它就调用一次参数lpEnumFunc指定的窗口处理函数并将这个窗口的句柄传递到窗口处理函数中,以便让它处理。那么,我们就只要在窗口处理函数中使用GetwindowLong函数来获得并判断窗口的类型,如果窗口是可见的,并且窗口具有最小化按钮,则将窗口最小化。
Public Enum EnumAction
eaResourceBrowser = 0
eaSearchFile = 1
eaMiniWindows = 2
eaRunFile = 3
eaStartMenu = 4
eaSleep = 5
eaWindowsHelp = 6
End EnumPublic Sub DoAction(eIndex As EnumAction)
Dim VK_ACTION As Long Select Case eIndex
Case 0: 'Open Resource Browser
VK_ACTION = &H45
Case 1: 'Search File
VK_ACTION = &H46
Case 2: 'Mini Windows
VK_ACTION = &H4D
Case 3: 'Run
VK_ACTION = &H52
Case 4: 'Start Menu
VK_ACTION = &H5B
Case 5: 'Sleep
VK_ACTION = &H5E
Case 6: 'Open Windows Help
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 Const KEYEVENTF_KEYUP = &H2
Private Const VK_APPS = &H5D
Private Const VK_PLAY = &HFA不好意思少了声明
一些应用软件提供了一种方便的功能,只需要一个操作就可以将Windows桌面上的
所有窗口最小化。首先,我们要遍历桌面上的所有窗口;其次,要判断窗口类型,
桌面上的很多窗口无法最小化,或者窗口是不可见的,如中文Win 95中的输入法窗
口。最后,将类型符合的窗口最小化。下面通过程序来介绍如何实现这种功能。 首先,在Project中加入一个Module文件;然后,在Module中加入以下代码: Public Declare Function EnumWindows Lib "user32" _ (ByVal lpEnumFunc As Long, ByVal lParam _ As Long) As Long Declare Function GetWindowLong Lib "user32" Alias _ "GetWindowLongA" (ByVal hwnd As Long, _ ByVal nIndex As Long) As Long Declare Function ShowWindow Lib "user32" (ByVal _ hwnd As Long, ByVal nCmdShow As Long) As Long Public Const WS_MINIMIZEBOX = &H20000 Public Const WS_VISIB
(ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Declare Function ShowWindow Lib "user32" (ByVal _
hwnd As Long, ByVal nCmdShow As Long) As Long Public Const WS_MINIMIZEBOX = &H20000
Public Const WS_VISIBLE = &H10000000
Public Const GWL_STYLE = (-16)
Public Const SW_MINIMIZE = 6 '该函数是EnumWindows的回调函数,
'EnumWindows函数将遍历的窗口句柄传递到hwnd参数中
Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
Dim l As Long
Dim ld As Long
ld = GetWindowLong(hwnd, GWL_STYLE)
'如果窗口具有最小化按钮并且窗口是可见的就将该窗口最小化
If ((ld And WS_MINIMIZEBOX) = WS_MINIMIZEBOX) Then
If ((ld And WS_VISIBLE)) Then
If ShowWindow(hwnd, SW_MINIMIZE) Then
End If
End If
End If
EnumWindowsProc = True
End Function 然后在Form1中添加一个CommandButton,并在Form1的代码窗口中添加以下代码: Private Sub Command1_Click()
Dim l As Long
'遍历所有的窗口
l = EnumWindows(AddressOf EnumWindowsProc, 0)
End Sub 运行上面的程序,点击CommandButton,桌面上的所有窗口就会被最小化。在上面的例程中,我们首先调用EnumWinodws函数遍历所有的窗口,每当函数遍历到一个窗口,它就调用一次参数lpEnumFunc指定的窗口处理函数并将这个窗口的句柄传递到窗口处理函数中,以便让它处理。那么,我们就只要在窗口处理函数中使用GetwindowLong函数来获得并判断窗口的类型,如果窗口是可见的,并且窗口具有最小化按钮,则将窗口最小化。
[Shell]
Command=2
IconFile=explorer.exe,3(这句我已经知道)
[Taskbar]
Command=ToggleDesktop
上面语句的意思吗?