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取得瀏覽器網址的範例

上一頁