|
| Autor |
Nachricht |
nicok
Poster
Anmeldedatum: 15.05.2008
Beiträge: 161
|
Prozesse mit Pfad auflisten
Verfasst am: 04.08.2008, 15:50 |
|
|
Hi,
ich hab bissher nur Beispiele gefunden wo nur der Prozessname (zb explorer.exe) ausgelesen wurde.
Ich möchte jedoch den Pfad dazu haben (C:Windowsexplorer.exe) |
|
| |
|
 |
ZiG
Überflieger
Anmeldedatum: 16.04.2008
Beiträge: 421
|
Verfasst am: 05.08.2008, 08:46 |
|
|
Api:
Visual Basic: [code]
Private Declare Function GetModuleFileNameExA Lib "psapi.dll" (ByVal hProcess As Long, ByVal hModule As Long, ByVal ModuleName As String, ByVal nSize As Long) As Long
Private Declare Function EnumProcessModules Lib "psapi.dll" (ByVal hProcess As Long, ByRef lphModule As Long, ByVal cb As Long, ByRef cbNeeded As Long) As Long
[/code]
Visual Basic: [code]
Dim lRet As Long, Modules(1 To 200) As Long
Dim ModuleName As String, nSize As Long
Dim cbNeeded2 As Long, hProcess As Long
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, 0, ParentID)
If hProcess <> 0 Then
'Überprüfen ob der Pfad des Prozesses richtig ist
lRet = EnumProcessModules(hProcess, Modules(1), 200, cbNeeded2)
If lRet <> 0 Then
ModuleName = Space$(MAX_PATH)
nSize = 500
lRet = GetModuleFileNameExA(hProcess, Modules(1), ModuleName, nSize)
If lRet <> 0 Then
If InStrB(1, LCase$(ModuleName), LCase$(Environ$("windir") & "explorer.exe")) = 0 Then
[/code] |
|
| |
|
|
nicok
Poster
Anmeldedatum: 15.05.2008
Beiträge: 161
|
Verfasst am: 06.08.2008, 12:05 |
|
|
Bekomm ich einen Fehler bei OpenProcess.
Da Fehlt doch die Funktion oder? |
|
| |
|
|
ZiG
Überflieger
Anmeldedatum: 16.04.2008
Beiträge: 421
|
Verfasst am: 06.08.2008, 12:22 |
|
|
Die Api wirst du sicher alleine per google finden. |
|
| |
|
|
|
|
Registrieren
Login
