41.txt

来自「VB实用技巧124则之1-62则 为了使每包文件个数少于65(获得更快的解压速」· 文本 代码 · 共 33 行

将所有窗口最小化

一些应用软件提供了一种方便的功能，只需要一个操作就可以将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