ab.com コミュニティ

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

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

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

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

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

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

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

コード: 全て選択

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

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

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

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

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

リストボックスに項目を追加するには 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

ab.com コミュニティ

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

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

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