Public Const PROCESS_ALL_ACCESS = &H1F0FFF

Private Sub Command2_Click()
dim pid as long , ZT_Hendle as long

dim ZT_processID as long '窗口句柄变量

EnumWindows AddressOf EnumWindowsProc, 0 '获取窗口 句柄
GetWindowThreadProcessId ZT_processID, pid '获取进程ID
ZT_Hendle = OpenProcess(PROCESS_ALL_ACCESS, False, pid) '获得进程 句柄 (这里返回值是0)
Text1.Text = pid '输出 进程 ID
Text2.Text = ZT_Hendle '输出 进程 句柄
End Sub

再获取窗口句柄的时候返回值。总是 零。。

大家帮忙看看。。这是为什么？？？？？？

ZT_processID :窗口句柄获得正确

pid : 进程ID获得正确

[此贴子已经被作者于2007-3-13 4:26:10编辑过]

是要获得，指定进程的句柄。
不过这个问题已经解决了。
方法是：ZT_Hendle = OpenProcess(PROCESS_READ_MEMORY, False, pid) '获得进程 句柄 (这里返回值是0)
以只读的方式打开，就没有问题了。