EnumWindows

機能

トップレベルウィンドウのハンドルをリストアップする

Declare Function EnumWindows Lib "user32.dll" _

    (ByVal lpEnumFunc As Long, lParam As Any) As Long

Declare Function EnumWindows Lib "user32.dll" _

    (ByVal lpEnumFunc As Integer, lParam As Integer) As Integer

BOOL EnumWindows(
WNDENUMPROC lpEnumFunc,
LPARAM lParam
);
引数
lpEnumFunc

コールバック関数EnumWindowsProc()関数へのポインタ

lParam

コールバック関数に渡す32ビット値

戻り値

正常終了のとき  0以外

エラーのとき  0

備考

AddressOf演算子を使わなければならないので、Visual Basic 5以上が必要。

lParam As Anyの部分は lParam As ListBoxなどに変更して使う。

サンプル

ダウンロード(EnumWindows.lzh 1.64KB)

Private Sub Command1_Click()
Dim lParam As ListBox


With Me.List1
    .Clear
Set lParam = Me.List1

'関数の実行
Call EnumWindows(AddressOf EnumWindowsProc, lParam)
End With
End Sub