フォアグラウンドウィンドウのタイトルを表示(VB)

キーワード:

GetForegroundWindow, GetWindowText

サンプルコード:

'フォアグラウンドウィンドウのタイトルをデバッグウィンドウに表示する
Sub Main()
	Dim hForegroundWnd As Long
	Dim WndTitle As String * 1000
	Dim Cnt As Integer

	'フォアグラウンドウィンドウのタイトルを1000回表示
	Do
		'1000回表示したら終了
		Cnt = Cnt + 1
		If Cnt = 1000 Then Exit Do

		'フォアグラウンドウィンドウの取得
		hForegroundWnd = GetForegroundWindow()

		'ウィンドウタイトルの取得
		WndTitle = ""
		GetWindowText hForegroundWnd, WndTitle, 1000

		'ウィンドウタイトルの表示
		Debug.Print WndTitle

		DoEvents
	Loop
End Sub


(original text:1998/12/25 更新)

本ドキュメントの内容は保証しません。本ドキュメントによって生じた結果について、一切の責任を負いません。