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

實戰個案：

1. 如何能知道某一應用程式是否被執行
2. 利用ENumWindow取得瀏覽器網址的範例

上一頁