如何在程序中结束另外一个程序

[ynhelian]

要在程序中结束另外一个程序，一是不会用 exitprocess 函数，另外查了许多资料，都建议不使用exitprocess . 而是向要关闭窗口发送WM-CLOSE 消息，这个消息应该用什么函数来发哪？请讲具体点，谢谢！

[--茶--]

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Dim hanDle As Long
Const WM_CLOSE = &H10
hanDle = FindWindow(0&, "About GVBox")
If hanDle > 0 Then
SendMessage hanDle, WM_CLOSE, 0, 0

End If

在上面的代码中程序找到标题为About GVBox窗口，然后发送WM_CLOSE.关于API函数，参见VB6.0中Add-in Manager中的VB 6 Api viewer.

[songs]

去看看这个地址:
http://expert.csdn.net/Topic/15259.shtm

[prefix]

wm_close只能使窗口最小化。

[shines77]

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Const WM_CLOSE = &H10

PostMessage hwnd, WM_CLOSE, 0&, 0&

即可，

hwnd为关闭窗口的句柄。