このコードを使用して、特定のウィンドウがアクティブであることを検出し、アクティブであるときは変数にハンドルを保存します。
Dim kiosk As IntPtr
Dim l As Integer = GetWindowTextLength(GetForegroundWindow())
Dim WindowTextBuffer As String = New String(Chr(0), l)
GetWindowText(GetForegroundWindow(), WindowTextBuffer, l + 1)
Debug.WriteLine(WindowTextBuffer)
If WindowTextBuffer = "FFKiosk" Then
kiosk = GetForegroundWindow()
End If
これまでのところ、すべてが正常に機能しています。しかし、このウィンドウがまだアクティブであることを確認したいと思います。そうでない場合は、kiosk 変数を null に設定したいと思います。このハンドルがまだ有効かどうかを確認するにはどうすればよいですか?