#include <WinAPIEx.au3>
$sProg = "Notepad.Exe"
If Not ProcessExists($sProg) Then MsgBox(0,'','Процесс не существует')
$sTitl = _WinGetForProc($sProg)
WinSetState($sTitl,'',@SW_SHOW)
WinActivate($sTitl)
MsgBox(64, "Заголовок окна процесса " & $sProg, $sTitl)
Func _WinGetForProc($sProcName)
$alist = ProcessList($sProcName)
For $i = 1 To $alist[0][0]
$iProcPid = $alist[$i][1]
Next
$aData = _WinAPI_EnumProcessWindows($iProcPid, 1)
$iWin = $aData[1][0]
$sTitle = WinGetTitle($iWin)
Return $sTitle
EndFunc ;==>_WinGetForProc