Имя файла родителя

[grindars]

Как получить имя EXE-файла процесса-родителя моей программы?

[tyomitch]

Если он уже завершился, то никак.
Иначе читай PID родителя из PEB. NtQueryInformationProcess в помощь.
Поиск сверху и красный.

[grindars]

tyomitch, Поиск выдал только это и где искать твой пример? У меня трафик щас крайне лимитирован ... GPRS... 0.25$/1mb..

[AjaxVS]

Айййййайайай! NtQueryInformationProcess

Код: Выделить всё

Dim s As String
Dim wmi, oq, o, oq1, o1
Dim iPID As Long

s = "calc.exe" 'программа, для которой ты хочешь найти имя EXE-файла процесса-родителя

Set wmi = GetObject("winmgmts:")
On Error Resume Next
Set oq = wmi.execquery("select * from Win32_Process where Name='" & s & "'")
s = "Родители:" & vbCrLf
For Each o In oq
iPID = o.ParentProcessId
Set oq1 = wmi.execquery("select * from Win32_Process where ProcessID=" & iPID)
For Each o1 In oq1
  s = s & o1.Name & vbCrLf 'в o1.name содержится имя родителя
Next
Next

MsgBox s

Конечно, код можно оптимизировать.. Но суть, думаю, ясна.

_____
Спец по WMI +_+