EnumWindows
宣告法:
Declare Function CreateCompatibleBitmap Lib "gdi32" Alias "CreateCompatibleBitmap" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
用法介紹:
此乃一個CallBack的函數,用來傳回所有存在程式的hWnd值,用時要小心,否則可能導致死機!
範例:
表單(Form1)的程式碼:
Option Explicit
Private Sub Command1_Click()
CallBackDemo
End Sub
Module1的程式碼:
Option Explicit
Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Any) As Long
Private Function CallBackFunction(ByVal hwnd As Long) As Long
Form1.List1.AddItem Str(hWnd)
CallBackFunction = True
End Function
Public Sub CallBackDemo()
Form1.List1.Clear
EnumWindows AddressOf CallBackFunction, 0&
End Sub
實戰個案: