top
Loading...
編程實現將所有窗口最小化
font size=2>

一些應用軟件提供了一種方便的功能,只需要一個操作就可以將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 陳銳)

作者:http://www.zhujiangroad.com
來源:http://www.zhujiangroad.com
北斗有巢氏 有巢氏北斗