ProcessID (PID) через СОМ соеденение ?

[BVladimir]

Открываю Эксел из др.программы (1С) через СОМ соеденение - возможно ли как-то из полученного СОМ объекта узнать
системный PID этого экземпляра Эксел?

[doober]

Можно.Если один процесс запущен,тогда так

Function Get_PID() As Long
    Dim Process As Object
    For Each Process In GetObject("winmgmts:").ExecQuery("Select * from Win32_Process")
        If Process.Caption Like "EXCEL*" Then
            Get_PID = Process.Handle
            Exit Function
        End If    '
    Next
    Get_PID = 0
End Function

Если несколько,то надо ковыряться в Process.Properties_

[BVladimir]

Сообщение от doober

Можно.Если один процесс запущен,тогда так

Function Get_PID() As Long
    Dim Process As Object
    For Each Process In GetObject("winmgmts:").ExecQuery("Select * from Win32_Process")
        If Process.Caption Like "EXCEL*" Then
            Get_PID = Process.Handle
            Exit Function
        End If    '
    Next
    Get_PID = 0
End Function

Если несколько,то надо ковыряться в Process.Properties_

Т.е. только через WMI ? А можно ли в запросе сразу указать что интересует процесс конкретного пользователя ? Ведь иначе возвращаются все процессы всех пользователей...

[doober]

Можно так,если есть соданный СОМ объект

Private Declare Function GetWindowThreadProcessId Lib "user32" _
    (ByVal hwnd As Long, _
     lpdwProcessId As Long) As Long
 Function GetPID(ByVal hwnd As Long) As Long
   GetWindowThreadProcessId hwnd, GetPID
End Function

Set App = CreateObject("Excel.Application")
PID = GetPID(App.hwnd)