ウィンドウ名とハンドルの取得

[ゲスト]

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

[7]

> 現在起動しているアプリケーションのウィンドウ名とハンドルを
> 列挙して表示することは可能でしょうか。
まさにウィンドウを列挙するEnumWindows()関数というのが存在します。
全てのウインドウを列挙する

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

[ゲスト]

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

[7]

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

関数の宣言 [ここをクリックすると内容が表示されます]

ウィンドウプロシージャの定義 [ここをクリックすると内容が表示されます]

全てのウィンドウを列挙 [ここをクリックすると内容が表示されます]

[ゲスト]

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

[7]

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

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

コード: 全て選択

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