ab.com コミュニティ

Function EnumWndProc(ByVal hWnd As HWND,ByVal lParam As LPARAM) As BOOL
Dim wndName As BytePtr	' ウィンドウ名を持つ
Dim length As Long	' NULLを含むウィンドウ名の長さを持つ

	length=GetWindowTextLength(hWnd)+1
	wndName=calloc(length)
	If GetWindowTextLength(hWnd,wndName,length) Then
		SendMessage(GetDlgItem(hMainWnd,ListBox1),LB_ADDSTRING,NULL,wndName)
	End If
	free(wndName)

	EnumWndProc=TRUE
End Function

> 説明不足すみません。
説明不足過ぎですね(￣□￣;)

リストボックスに項目を追加するには LB_ADDSTRING をリストボックスに送信してやります。

[code]Function EnumWndProc(ByVal hWnd As HWND,ByVal lParam As LPARAM) As BOOL
Dim wndName As BytePtr ' ウィンドウ名を持つ
Dim length As Long ' NULLを含むウィンドウ名の長さを持つ

length=GetWindowTextLength(hWnd)+1
wndName=calloc(length)
If GetWindowTextLength(hWnd,wndName,length) Then
SendMessage(GetDlgItem(hMainWnd,ListBox1),LB_ADDSTRING,NULL,wndName)
End If
free(wndName)

EnumWndProc=TRUE
End Function[/code]

説明不足すみません。
リストボックスに追加できなかったのです。

Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long,ByVal lPalam As LPARAM) As BOOL

Function EnumWndProc(ByVal hWnd As HWND,ByVal lParam As LPARAM) As BOOL
	' 各ウィンドウに対してしたい処理

	' -----ここまで-----
	EnumWndProc=TRUE
End Function

Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
	EnumWindows(AddressOf(EnumWndProc),0)
End Sub

> 上手くいきませんでした。コードをお願いします。
何をして上手くいかなかったんでしょう？

[hide=関数の宣言][code]Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long,ByVal lPalam As LPARAM) As BOOL[/code][/hide]
[hide=ウィンドウプロシージャの定義][code]Function EnumWndProc(ByVal hWnd As HWND,ByVal lParam As LPARAM) As BOOL
' 各ウィンドウに対してしたい処理

' -----ここまで-----
EnumWndProc=TRUE
End Function[/code][/hide]
[hide=全てのウィンドウを列挙][code]Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
EnumWindows(AddressOf(EnumWndProc),0)
End Sub[/code][/hide]

上手くいきませんでした。コードをお願いします。

> 現在起動しているアプリケーションのウィンドウ名とハンドルを
> 列挙して表示することは可能でしょうか。
まさにウィンドウを列挙するEnumWindows()関数というのが存在します。
[url=http://homepage1.nifty.com/MADIA/vb/API/EnumWindows.htm]全てのウインドウを列挙する[/url]

追記。
EnumWindows()関数使ったことがなかったのでリンクの紹介だけだったんですけど、動かしてみたのでコードを提示することもできます。

現在起動しているアプリケーションのウィンドウ名とハンドルを
列挙して表示することは可能でしょうか。