下面代码可以关闭一个窗口，但是需要找到这个窗户的句柄
PostMessage(winHwnd, WM_CLOSE, 0&, 0&)

[FIELDSET][LEGEND]引自：1楼[/LEGEND]
下面代码可以关闭一个窗口，但是需要找到这个窗户的句柄
PostMessage(winHwnd, WM_CLOSE, 0&, 0&)

[/FIELDSET]

回复：
窗户的句柄  在代码中怎么写？ 

例如：窗户的句柄为“千千静听”  请给个详细例子好吗?


  

不用获取句柄，看下面代码：

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Const PROCESS_TERMINATE = (&H1)
Dim MyPid As Long

Private Sub Command1_Click()
    TerminatP MyPid
End Sub

Private Sub Form_Load()
    MyPid = Shell("calc.exe", vbNormalFocus)
End Sub

Private Sub TerminatP(ByVal pid As Long)
    Dim ret As Long
    ret = OpenProcess(PROCESS_TERMINATE, False, pid)
    ret = TerminateProcess(ret, 0)
End Sub