| じゃんぬさんのサイトを参考に、以下のコードで実現はできたのですが、
実行時、デバッグ実行時にFindWindowだと取得できる場合、できない場合があるようですが
こういう仕様なのでしょうか。
お分かりになる方、おられましたらよろしくお願いします。
' 実行中のすべてのプロセスを取得する
Dim hProcesses As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcesses()
Dim stPrompt As String = String.Empty
' 取得できたプロセスからプロセス名を取得する
For Each hProcess As System.Diagnostics.Process In hProcesses
If Strings.InStr(1, hProcess.ProcessName, strProsessName) > 0 Then
getFindWindow = hProcess.Handle
Exit For
End If
Next hProcess
|