一些應用軟件提供了一種方便的功能,只需要一個操作就可以將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函數遍歷所有 翱冢康焙槔揭桓齟翱冢偷饔靡淮尾問齦pEnumFunc指定的窗口處理函數并將這個窗口的句柄傳遞到窗口處理函數中,以便讓它處理。那么,我們就只要在窗口處理函數中使用GetwindowLong函數來獲得并判斷窗口的類型,如果窗口是可見的,并且窗口具有最小化按鈕,則將窗口最小化。
以上程序是在Windows 95、VB5.0中運行通過的。
(《電子與電腦》98年10期 長沙礦冶研究院312信箱 410012 陳銳)