Определение PID текущего окна

[ParserDSS]

Вопрос: как определить PID активного окна. Т.е. К примеру, запустил я блокнот, консоль и что-то ещё. Тыкнул в блокнот - как определить PID блокнота? А потом тыкнул консоль - как определить PID консоли.

На сколько я понимаю, нужно поставить таймер, и отлавливать PID активного окна. А, к примеру, в label это дело отображать. Только вот как отлавливать...

[BV]

PID окна? Это какой-то новый термин?

PID принято понимать как Process IDentifier (process id). К окну это никакого отношения не имеет. Однако, по манипулятору окна (window handle, HWND) можно получить ID соотв. потока и/или процесса -- GetWindowThreadProcessId

[ParserDSS]

Т.е. PID процесса.

[ParserDSS]

Более или менее разобрался, только вот как получить ID процесса из HWND

[HiSER]

Более или менее разобрался, только вот как получить ID процесса из HWND

Во втором посте BV написал как!

[ParserDSS]

Видел, но что-то не понял: получаемый результат не соответствует тому, что отображает диспетчер задач.

[HiSER]

Раз: http://msdn2.microsoft.com/en-us/library/ms633522.aspx
Два:

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

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

Private Sub Command1_Click()
Dim pid As Long, tid As Long

tid = GetWindowThreadProcessId(Me.hwnd, pid)

MsgBox "Process ID: " & pid & vbCrLf & _
                "Thread ID: " & tid
End Sub


[ParserDSS]

Всё, разобрался, спасибо