VPF::Как узнать ID другого процесса?

GreatReaper

Дата 14.3.2006, 16:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 14.9.2005

Репутация: нет
Всего: нет

Допустим, открыт стандартный Блокнот (notepad.exe). Каким образом можно получить ID процесса "notepad.exe" ?

Romikgy

Дата 14.3.2006, 17:34 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: нет
Всего: 146

FindWindow - находишь блакнот
GetWindowThreadProcessId - узнаешь пид по хенделу окна

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Voldemar2004

Дата 14.3.2006, 18:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23

Код

Option Explicit

Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
Private Declare Function FindWindow& Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String)
Private Declare Function FindWindowEx& Lib "user32" Alias "FindWindowExA" (ByVal hWndParrent As Long, ByValhWndChildren As Long, ByVal lpClassName As String, ByVal lpWindowName As String)

Dim hw As Long

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

                    
Private Sub Command1_Click()

Dim sCaption As String

sCaption = "Безымянный - Блокнот"

hw = FindWindow(vbNullString, sCaption)

Dim pID As Long

MsgBox "Хэндл = " & hw
MsgBox "pID = " & GetWindowThreadProcessId(hw, pID)

End Sub

--------------------

i_i
(';')
(V)

user posted image

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »