Как закрыть постороннее проиложение

[altatr]

Подскажите пожалуйста есть ли способ из под Visual Basic закрыть внешнюю программу.
В постейшем случае должна быть прогамулина с двумя кнопками
первая кнопка будет стороннюю прогу запускать:

Private Sub Command1_Click()
Shell "C:\Instal\SAFlashPlayer.exe"
End Sub

А вторая будет эту самую прогу закрывать.
Поискал в сети, но нашел только какой то текстовик, без
исходника, он закрывает прогу как-то сначала найдя ее по заголовку...

Заранее спасибо!

[A.A.Z.]

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

Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long

Dim PID As Long

Private Sub Command1_Click()
PID = Shell("C:\Instal\SAFlashPlayer.exe", vbNormalFocus)
End Sub

Private Sub Command2_Click()
TerminateProcess PID, 0
End Sub

[FaKk2]

A.A.Z.
Редиска
Я как раз думал, чего это ShellExecute возращает, и почему это не хендл окна

[altatr]

На вторую кнопку реакции нет
(ошибок или сообщений тоже нет)

[GSerg]

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

Option Explicit

Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function OpenProcess Lib "Kernel32.dll" (ByVal dwDesiredAccessas As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Dim hP As Long

Private Sub Command1_Click()
  hP = OpenProcess(0, 0, Shell("C:\windows\notepad.exe", vbNormalFocus))
End Sub

Private Sub Command2_Click()
  TerminateProcess hP, 0
  CloseHandle hP
End Sub

Мой предыдущий опыт подсказывает, что это не будет работать в NT

[A.A.Z.]

PID - сокращенно "Process ID".
Его возвращает функция Shell.

2 FAKK2
Внизу пример, как из PID'а хендл верхнего окна получать.

[A.A.Z.]

altatr, ты знаешь, чего-то не могу понять, в чем дело... Заюзал ExitProcess - VB вылетел... Не знаю...

[alibek]

2 A.A.Z.
У меня большие сомнения, что Shell возвращает то, что надо.
В Win16 (VB3) он действительно возвращал hModule и по этому хэндлу затем можно было закрыть вызванное приложение. Но где-то я читал, что в Win32 использовать возвращаемые значения Shell невозможно, нужно юзать OpenProcess.

В NT-системах процессы закрывались, я как-то делал прогу, которая запускала игру (предварительно попатчив пару файликов ), вызов осуществлялся через OpenProcess. И при необходимости TerminateProcess отстреливал процесс и в Win9x и в NT-системах.

[A.A.Z.]

Ох...

[CyberYen]

Зачем обязательно закрывать процесс?? А почему нельзя программно нажать на [x] закрываемой проги

[A.A.Z.]

CyberYen, я думаю, если бы все было так просто, человек бы не спрашивал.

он закрывает прогу как-то сначала найдя ее по заголовку...

Если известен заголовок, то

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

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
Private Const WM_CLOSE As Long = &H10

Function CloseWindow(ByVal WindowCaption As String) As Boolean
Dim Wnd As Long, Ret As Long
Wnd = FindWindow(vbNullString, WindowCaption)
If Wnd = 0 Then CloseWindow = False: Exit Function
Ret = PostMessage(Wnd, WM_CLOSE, ByVal 0&, ByVal 0&)
If Ret = 0 Then CloseWindow = False: Exit Function
CloseWindow = True
End Function

Private Sub Form_Load()
MsgBox CloseWindow("Безымянный - Блокнот")
End Sub

Непонятно - спрашивай