怎么关闭其他的程序呀？

Question

关闭的方法有很多。总的来说，外部关闭，人家说不太安全，此外你的程序可能还来不及做关闭以前的处理。所以推荐程序自己在内部关闭比较好。
用自定义消息实现。主控制进程发送自定义消息。想要关闭的程序捕捉以后作处理。
如果哪个程序不是你写的。只能用findwindow来实现了。然后发送wm_quit消息。

Answer 1

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
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Const WM_CLOSE = &H10
Private Const WM_QUIT = &H12Dim handle as longhandle=FindWindow("","Window title which you want to close")PostMessage handle,WM_CLOSE,0,0
'或
PostMessage handle,WM_QUIT,0,0

Answer 2

呵呵，找到别人的ProcessID，然后再TerminateProcess