Закрытие других программ Exe

[Vlad_Ginz]

Как при закрытии своего приложения, закрыть другие программы с известными названиями ?
Если требуется API, просьба расписать подробнее с Declare.

[Tamahawk]

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
посылаеш WM_CLOSE

[Vlad_Ginz]

Есть несколько работающих EXE.
Как их закрыть из своей программы ?
Просьба вариант кода.

[Sirik]

Вот тебе исходник. Там виден список процессов, ты можешь "убить" любой процесс, тем более если ты знаешь имена exe

[A.A.Z.]

Можно через FindWindow:
Положи на форму кнопку и вставь этот код:

Код: Выделить всё

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Const WM_CLOSE = &H10

Sub TerminateEXE(ByVal EXEName As String)
Dim S As String, Wnd As Long
S = EXEName
If LCase(Right(S, 4)) = ".exe" Then S = VBA.Left(S, Len(S) - 4)
Wnd = FindWindow(vbNullString, S)
If Wnd > 0 Then
PostMessage Wnd, WM_CLOSE, 0&, 0&
Else
MsgBox "Не найдено!"
End If
End Sub

Private Sub Command1_Click()
TerminateEXE InputBox("Введите имя exe файла, можно без "".exe"", вообще, нужно только без него, но в коде уже поставлено его отслеживание")
End Sub

Private Sub Form_Load()
Command1.Caption = "Закрыть EXE"
End Sub

[Vlad_Ginz]

Ну и порадовали Вы меня г.г. Sirik и Kofeinik !
Отлично работают оба варианта !
Тема закрыта. Большое спасибо !