Funktion PID2WinTitle

1. offizieller Beitrag

    Gibt's zwar sicher schon, aber ich hab's mal neu erfunden, da mir alles was ich gefunden habe nicht gefiel.

    Spoiler anzeigen
    [autoit]

    #Include <Array.au3>
    $title = _PID2WinTitle(4068)
    _ArrayDisplay($Title)

    [/autoit] [autoit][/autoit] [autoit]

    Func _PID2WinTitle($pid)
    Local $Fensteranzahl = 0, $aFenstertitel[1] = [0], $Liste = WinList()
    For $i = 1 To $Liste[0][0]
    If $pid = WinGetProcess($Liste[$i][0]) Then
    ReDim $aFenstertitel[$Fensteranzahl+2]
    $Fensteranzahl += 1
    $aFenstertitel[0] = $Fensteranzahl
    $aFenstertitel[$Fensteranzahl] = $Liste[$i][0]
    EndIf
    Next
    Return $aFenstertitel
    EndFunc

    [/autoit]
    • Offizieller Beitrag

    Die Variable $Fensteranzahl kannst Du noch einsparen:

    Spoiler anzeigen
    [autoit]


    #Include <Array.au3>
    $title = _PID2WinTitle(4068)
    _ArrayDisplay($Title)

    [/autoit] [autoit][/autoit] [autoit]

    Func _PID2WinTitle($pid)
    Local $aFenstertitel[1] = [0], $Liste = WinList()
    For $i = 1 To $Liste[0][0]
    If $pid = WinGetProcess($Liste[$i][0]) Then
    ReDim $aFenstertitel[$aFenstertitel[0]+2]
    $aFenstertitel[0] += 1
    $aFenstertitel[$aFenstertitel[0]] = $Liste[$i][0]
    EndIf
    Next
    Return $aFenstertitel
    EndFunc

    [/autoit]

    Aber sonst: Sehr schöne Funktion! :)