Путь к приложению по дескриптору окна

[PILIGRIM]

Подскажите пожалуйста как можно определить путь к приложению по дескриптору (Handle) его окна.

[Amed]

http://bbs.vbstreets.ru/viewtopic.php?t=8619
http://bbs.vbstreets.ru/viewtopic.php?t=13871

[tyomitch]

GetWindowModuleFileName

[PILIGRIM]

Я нашёл такой пример:
Option Explicit
Private Declare Function GetModuleFileNameEx Lib "psapi" Alias "GetModuleFileNameExA" (ByVal hProcess As Long, ByVal hModule As Long, ByVal lpFilename As String, ByVal nSize As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Const PROCESS_QUERY_INFORMATION = &H400
Private Const PROCESS_VM_READ = &H10

Private Sub Command1_Click()
'PID посмотри Диспетчером задач и подставь сам
Dim PID As Long, hProcess As Long, FileName As String
PID = 380
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, 0, PID)
FileName = Space(255)
FileName = Left(FileName, GetModuleFileNameEx(hProcess, 0, FileName, 255))
CloseHandle hProcess
Debug.Print FileName
End Sub
Но он работает через PID процесса, а мне нужно через Хендел окна.
Подскажите как можно сделать это через Хендел или хотябы как через Хендел получит PID процесса.

[tyomitch]

PILIGRIM, нужная тебе функция называется GetWindowModuleFileName

[PILIGRIM]

Option Explicit
Private Declare Function GetWindowModuleFileName Lib "user32.dll" Alias "GetWindowModuleFileNameA" (ByVal hwnd As Long, ByVal pszFileName As String, ByVal cchFileNameMax As Long) As Long
Dim strModuleName As String * 255
Dim hFWnd As Long

Private Sub Command1_Click()
hFWnd = Form1.hwnd
strModuleName = Left$(strModuleName, GetWindowModuleFileName(hFWnd, strModuleName, Len(strModuleName)))
MsgBox strModuleName
End Sub

Почему после компиляции при выполнение этого кода функция возвращает не путь к EXE, а C:\WINDOWS\System32\MSVBVM60.DLL, а если получить Хэндел чужого окна то путь не к тому приложению, а к себе?