TC doesnt find the correct cmd

---

petra wrote:

Today i realised that this program generate a hidden cmd, which exists even i close the programm. (started TC as admin and looked in Object Browser)

Have you considered using the FindChild method of the Sys object to locate the required process?

Function FindConsoleSession()
  
  FindConsoleSession = False
  
  Dim procPath : procPath = "C:\Windows\System32\cmd.exe"
  Dim procName : procName = "Cmd"
  Dim wndCaption : wndCaption = "*"
  Dim wndClass : wndClass = "ConsoleWindowClass"
  Dim propNames : propNames = Array("Path", "ProcessName")
  Dim propValues : propValues = Array(procPath, procName)
  Dim proc, msg 
  
  Set proc = Sys.FindChild(propNames, propValues, 1, True)
	  
  ' verify console window is open/exists
  If proc.WaitProperty("Exists", True, 999) Then
    If proc.Window(wndClass, wndCaption, 1).Exists Then
      FindConsoleSession = True
    Else
      msg = aqString.Format("Cannot find the '%s' window", wndClass)
      Log.Error msg,, pmHighest,, Sys.Desktop.ActiveWindow
      StartConsoleSession = False
    End If
  Else
    msg = aqString.Format("Cannot find the '%s' window", procName)
    Log.Error msg,, pmHighest,, Sys.Desktop
  End If

End Function