"CajunCoiler (http://www.cajuncoiler.tk)"
<po**********@totallyspamless.cox.net> wrote in message
news:wWkfb.47624$a16.21207@lakeread01...
By any chance, would there happen to be an API function available
that would allow me to terminate a process by name (as it appears
in the task manager list) ?
Try this see if it suits your need. Got some extras as well on handling
processes.
Make sure you save all your work before testing since killing the wrong
process will freeze your computer..
' Module level (*.bas)
Declare Function TerminateProcess Lib "kernel32" (ByVal
ApphProcess As Long, ByVal uExitCode As Long) As Long
Declare Function OpenProcess Lib "kernel32" (ByVal
dwDesiredAccess As Long, ByVal blnheritHandle As Long, ByVal
dwAppProcessId As Long) As Long
Declare Function ProcessFirst Lib "kernel32" Alias
"Process32First" (ByVal hSnapshot As Long, uProcess As
PROCESSENTRY32) As Long
Declare Function ProcessNext Lib "kernel32" Alias
"Process32Next" (ByVal hSnapshot As Long, uProcess As
PROCESSENTRY32) As Long
Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias
"CreateToolhelp32Snapshot" (ByVal lFlags As Long, lProcessID
As Long) As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As
Long) As Long
Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szexeFile As String * 260
End Type
Public Declare Function RegisterServiceProcess Lib "kernel32"
(ByVal ProcessID As Long, ByVal ServiceFlags As Long) As Long
Public Declare Function GetCurrentProcessId Lib "kernel32" ()
As Long
'Now on your form, add a list control, a textbox, and a
'command button (and this code):
Option Explicit
Private Sub Command1_Click()
KillApp (Text1.Text)
End Sub
Public Function KillApp(ProcessName As String) As Boolean
Const PROCESS_ALL_ACCESS = 0
Dim uProcess As PROCESSENTRY32
Dim rProcessFound As Long
Dim hSnapshot As Long
Dim szExename As String
Dim exitCode As Long
Dim myProcess As Long
Dim AppKill As Boolean
Dim appCount As Integer
Dim i As Integer
On Local Error GoTo done
appCount = 0
Const TH32CS_SNAPPROCESS As Long = 2&
uProcess.dwSize = Len(uProcess)
hSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS,0&)
rProcessFound = ProcessFirst(hSnapshot, uProcess)
List1.Clear
' populates the list
Do While rProcessFound
i = InStr(1, uProcess.szexeFile, Chr(0))
szExename = LCase$(Left$(uProcess.szexeFile, i - 1))
List1.AddItem (szExename)
If Right$(szExename, Len(ProcessName)) =
LCase$(ProcessName) Then
KillApp = True
appCount = appCount + 1
myProcess = OpenProcess(PROCESS_ALL_ACCESS, False,
uProcess.th32ProcessID)
AppKill = TerminateProcess(myProcess, exitCode)
Call CloseHandle(myProcess)
End If
rProcessFound = ProcessNext(hSnapshot, uProcess)
Loop
Call CloseHandle(hSnapshot)
done:
End Function
Private Sub Form_Load()
KillApp ("initialize") 'build our list
' Hide our app so we don't get killed
RegisterServiceProcess GetCurrentProcessId, 1
End Sub
Private Sub Form_Unload(Cancel As Integer)
RegisterServiceProcess GetCurrentProcessId, 0
End Sub
Private Sub List1_Click()
Text1.Text = List1.List(List1.ListIndex)
End Sub
'Caution: Killing a process that might be the system, may yield
'some unpredictable results.
