已知道进程id，得到主窗口的标题
已知道进程id，得到主窗口的标题

[解决办法]
http://support.microsoft.com/kb/183009/zh-cn
[解决办法]
Enumwindow 枚举所有的窗口，
getwindowthreadprocess 取提这些窗口的所在的进程，然后与“已知道进程id”比较
[解决办法]
Option Explicit

Private Declare Function GetWindowText Lib "user32 " Alias "GetWindowTextA " _
(ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32 " Alias _
"GetWindowTextLengthA " (ByVal hwnd As Long) As Long

Private Sub Form_Load()
Dim WText As String * 512
Dim Wlen As Long
Dim bRet As Long

Wlen = GetWindowTextLength(Me.hwnd)
bRet = GetWindowText(Me.hwnd, WText, Wlen + 1)
Debug.Print WText
End Sub

[解决办法]
Enumwindow 枚举窗口getwindowthreadprocess 对比
如果找不到 可以ENUMTHREADWINDOW 枚举线程创建窗口
[解决办法]
楼上就是正解，这个帖子挂了好久了吧
[解决办法]
怎么可能枚举不到?

你把所有得到的窗体所属进程ID都记录一下,与你那个已知的ID比较一下就行了呀.

除非你没有用对这个函数.......

要不然你就是你系统里的这个函数坏了~~~~:D