Anwendungspfad anhand der PID ermitteln

**BugFix** · 1. April 2009

Hi,
hier mal eine Möglichkeit mit der PID den Pfad der Anwendung zu ermitteln.
Wird keine PID übergeben, gibt die Funktion den Pfad für die Anwendung des aktiven Fensters zurück.

_GetPathByPID()

Edit: Es gibt ja kaum was, was nicht schon jemand getan hat
Habe gerade eine ähnliche Lösung (1 Monat alt) im EN-Forum gefunden. Link
Naja, ich habs als Zweiter getan - der andere als Vorletzter.

**Alina** · 1. April 2009

Sehr gut !!!!

ahe · 17. April 2009

Hallo BugFix,

habe eben leider einen kleinen Bug in deinem Skript gefunden...

Wenn der Pfad z. B. für die Firefox.exe "C:\Program Files\Mozilla Firefox\firefox.exe" lautet, wird nur "Files\Mozilla Firefox\firefox.exe" zurückgeliefert...

mfg
Axel

**BugFix** · 17. April 2009

Zitat von ahe

wird nur "Files\Mozilla Firefox\firefox.exe" zurückgeliefert...

Kann ich nicht bestätigen.
Habe mal diesen Ordner angelegt (im deutschen Windows gibt es den normalerweise ja nicht ) und ein dort hinkopiertes Programm gestartet.
Ergebnis:

Code

C:\Program Files\TEST\PDFReader.exe

ahe · 17. April 2009

Komisch,

ich habe jetzt 'mal eine Message Box für die Ausgabe gemacht und das Skript compiliert (also nicht über SciTE aufgerufen).

MsgBox(0, "Pfad", _GetPathByPID()) anstelle von ConsoleWrite(_GetPathByPID() & @CRLF)

Wenn ich jetzt keine PID in _GetPathByPID angebe und die EXE über die Kommandozeile starte erhalte ich die folgende Meldung:
\system32\cmd.exe

Gebe ich im Skript eine PID ein, so erhalte ich für FireFox wieder den im vorigen Post angegebenen Pfad.

Windows XP MUL (englisch + deutsches Sprachpaket)
SciTE 1.77
AutoIt v3 Script : 3, 3, 0, 0

mfg
Axel

**Alina** · 17. April 2009

Hallo BugFix.

Da muß ich ihm recht geben. Sehe grade, das ich das gleiche Verzeichnis wie Du angelegt habe und ich dennoch "Program Files" nicht mit angezeigt bekomme.
Wieso? Kann ich nicht sagen

**Oscar** · 17. April 2009

BugFix, der Fehler liegt am StringRegExp. Dort wird zuviel in das Array aufgenommen.
Ändere das mal in:
$DevicePath = StringRegExp($path, "(\\Device\\\w*)\\[\w\d\+\-()]*", 1)
dann stimmt das bei mir.

**Alina** · 17. April 2009

Oscar.

Stimmt, so klappt es auch mit dem Nachbarn

**BugFix** · 17. April 2009

Trotzdem suche ich noch danach, warum das bei mir zu keinem Fehler führt.
Sonst sucht man ja eigentlich, warum ein Fehler auftritt, diesmal umgekehrt

progandy · 17. April 2009

Ich hab bei mir folgenden ConsoleWrites eingefügt:
$path = DllStructGetData($strPath, 'path')
ConsoleWrite("!$path: " & $path & @CRLF)
$DevicePath = StringRegExp($path, "\\Device\\\w*\\[\w\d\+\-()]*", 1)
ConsoleWrite("!$DevicePath[0]: " & $DevicePath[0] & @CRLF)
Ergebnis:

Zitat

!$path: \Device\HarddiskVolume3\Programme\AutoIt3\AutoIt3.exe
!$DevicePath[0]: \Device\HarddiskVolume3\Programme
\AutoIt3\AutoIt3.exe

//Edit: mit dem RegExp funktioniert es:
$DevicePath = StringRegExp($path, "\\Device\\\w*", 1)

**Oscar** · 17. April 2009

Ich kann Dir ja mal die Ausgabe auf meinem Rechner beschreiben:

Ohne die zusätzlichen Klammern:
$DevicePath[0] = "\Device\HarddiskVolume3\Programme"
Das Array $ret liefert in $ret[2] aber nur:
"\Device\HarddiskVolume3"
folglich trift die If-Bedingung nie zu und DeviceLetter ist ein Leerstring.

Mit den zusätzlichen Klammern:
$DevicePath[0] = "\Device\HarddiskVolume3"
und der Rest funktioniert.

**BugFix** · 17. April 2009

Zitat von Oscar

$DevicePath[0] = "\Device\HarddiskVolume3\Programme"

Also das verwundert mich nun doch sehr. Eigentlich dürfte hier nicht im Klartext das Volume erscheinen (sonst hätte ich auch die Auswertung vereinfachen können).
Meine Ausgabe sieht so aus:
\Device\Harddisk0\DP(1)0x7e00-0x950280000+1

Also scheint die Abfrage von irgendwelchen Windowseinstellungen beeinflußt zu werden.

**Oscar** · 17. April 2009

Testprogramm:

Local $lpTargetPath
$ret = DllCall("kernel32.dll", "long", "QueryDosDevice", "str", "c:", "str", $lpTargetPath, "long", 256)
ConsoleWrite($ret[2] & @CR)

Die Ausgabe für meine CF-Karte (im Cardreader, über USB am Mainboard) sieht ähnlich aus:
"\Device\Harddisk4\DP(1)0-0+a"

Bei meinen 4 Festplatten kommt aber immer das Volume, z.B.:
"\Device\HarddiskVolume4"

**BugFix** · 17. April 2009

OK, dann muß ich mal auf dem Desktop-PC testen. Mein Laptop bringt nur die kryptische Bezeichnung.

progandy · 18. April 2009

Werden vielleicht über SATA angeschlossene Geräte anders dargestellt als IDE und P-ATA ? Vielleicht macht da Windows einen Unterschied.

Jam00 · 19. April 2009

Ich habe mal das daraus gebastelt:

Spoiler anzeigen

#include-once
#include <WinAPI.au3>
#include <Array.au3>

Global $Icon[1]
$Liste = WinList ()
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 626, 447, 193, 125)
$X = 2
$Y = 2
For $i = 1 to $Liste[0][0]
If $Liste[$i][0] <> "" AND IsVisible($Liste[$i][1]) Then
$Pfad = _GetPathByPID (WinGetProcess ($Liste[$i][1]))
_ArrayAdd ($Icon,GUICtrlCreateIcon($Pfad, 0, $X, $Y, 48, 48))
If $X +52 >= 624 Then
$X = 2
$Y += 52
Sleep (100)
Else
$X += 52
EndIf
EndIf
Next

Func IsVisible($handle)
If BitAnd( WinGetState($handle), 2 ) Then
Return 1
Else
Return 0
EndIf

EndFunc
For $1 = 0 To $Liste[0][0]

Next
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit

EndSwitch
WEnd

;===============================================================================
; Function Name: _GetPathByPID($PID=-1)
; Description:: Get full path of an running application by using PID
; Parameter(s): $PID - PID, if not set will used PID from active Window
; Requirement(s): #include <WinAPI.au3>
; Return Value(s): Success Full ApplicationPath
; Failure set @error 1 - process handle failed
; 2 - process image failed
; 3 - query dosdevice failed
; Author(s): BugFix (bugfix@autoit.de)
;===============================================================================

Func _GetPathByPID($PID=-1)
If $PID = -1 Then $PID = WinGetProcess(WinGetTitle("[active]"))
$hProcess = _WinAPI_OpenProcess(0x00000400, True, $PID, True)
If Not $hProcess Then Return SetError(1,0,0)
Local $ret, $path, $DevicePath, $DeviceLetter, $strPath = DllStructCreate("char path[256]")
DllCall(@SystemDir & '\Psapi.dll', "uint64", "GetProcessImageFileNameA", _
"hwnd", $hProcess, "ptr", DllStructGetPtr($strPath), "int", 256)
If @error Then Return SetError(2,0,0)
$path = DllStructGetData($strPath, 'path')
$DevicePath = StringRegExp($path, "\\Device\\\w*", 1)
Local $lpTargetPath, $aDrive = DriveGetDrive("ALL")
For $i = 1 To UBound($aDrive) -1
$ret = DllCall("kernel32.dll", "long", "QueryDosDeviceA", "str", $aDrive[$i], "str", $lpTargetPath, "long", 256)
If @error Then Return SetError(3,0,0)
If $ret[2] = $DevicePath[0] Then
$DeviceLetter = $aDrive[$i]
ExitLoop
EndIf
Next
DllCall("kernel32.dll", "long", "CloseHandle", "long", $hProcess)
Return StringReplace($path, $DevicePath[0], StringUpper($DeviceLetter))
EndFunc ;==>_GetPathByPID

**Raupi** · 24. Mai 2009

Hm ich verfluche Vista und Konsorten .

Da hat BugFix so eine schöne Funktion geschrieben und sie funzt nicht richtig auf Vista .
Bin gerade dabei einen Taskmanager zu progen und könnte die Funk gut gebrauchen .
Wenn ich anhand der PID , die ich aus der ProcessList habe den Pfad ermitteln möchte klappt das nicht .

Dieser Teil des Codes:
$hProcess = _WinAPI_OpenProcess(0x00000400, True, $PID, True) liefert mir des öfteren eine WinApi fehlermeldung:

_WinApi_OpenProcessPriviliged: Zugriff verweigert

Habe das versucht mit
Local $aProc = DllCall('kernel32.dll', 'hwnd', 'OpenProcess', 'int', 0x00000410, 'int', 0, 'int', $PID); Modifiziert
$hProcess = $aProc[0]
zu umgehen , aber es klappt nur insoweit, das der fehler nicht angezeigt wird und folglich das Script nicht abstürzt .

Soweit ich das jetzt recherchiert habe liegt es an der UAC von Vista . Die Funktion OpenProcess funktioniert nur mit einschränkungen.
Hat irgendwer eine Idee wie ich sonst zum Pfad komme ? Hab mir im Englisch Forum schon eine Wolf gesucht

BugFix habe sogar 3 weiter Funktionen so ähnlich wie deine gefunden . Deine gefällt mir aber am besten , und liefert mir nach meiner mod. die meisten Ergebnisse

Post 1200

Edit: Hier mal die modifizierte Version von _GetPathByPID:

Spoiler anzeigen

**AspirinJunkie** · 24. Mai 2009

Und mit @RequireAdmin?
Ansonsten versuchs mal mit dieser (ungetestet - hab gerade kein AutoIt zur Hand):

Spoiler anzeigen

Ansonsten mal eine Variante ohne OpenProcess (ebenfalls ungetestet):

Spoiler anzeigen

Allerdings ist die 2. Funktion logischerweise deutlich langsamer als die 1.

**Raupi** · 31. Mai 2009

AspirinJunkie.

Dein 1. Beispiel ist superschnell und gibt zahlreiche treffer aus . Dein 2. Beispiel ist am besten hat aber den Nachteil , das es absolut langsam ist . Ich werd eventuell beides kombinieren und mal sehen ob ich es damit hinbekomme. Dank dir

Teilen