Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Func _WinGetByPID($iPID, $nArray = 1)
- If IsString($iPID) Then $iPID = ProcessExists($iPID)
- Local $aWList = WinList(), $sHold
- For $iCC = 1 To $aWList[0][0]
- If WinGetProcess($aWList[$iCC][1]) = $iPID And _
- BitAND(WinGetState($aWList[$iCC][1]), 2) Then
- If $nArray Then Return $aWList[$iCC][0]
- $sHold &= $aWList[$iCC][0] & Chr(1)
- EndIf
- Next
- If $sHold Then Return StringSplit(StringTrimRight($sHold, 1), Chr(1))
- Return SetError(1, 0, 0)
- EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement