Insira esse código ao seu projeto:
Public
Sub KillProcess(ByVal processName As String)
'Captura de erro
On Error GoTo ErrHandler
'----------------------
'Declaração de variaveis
Dim oWMI
Dim ret
Dim sService
Dim oWMIServices
Dim oWMIService
Dim oServices
Dim oService
Dim servicename
'------------------------------
Set oWMI = GetObject("winmgmts:")
Set oServices = oWMI.InstancesOf("win32_process")
'-----------------------------------------------------------
'-Busca
do Processo
For Each oService In oServices
servicename = LCase(Trim(CStr(oService.Name) & ""))
If InStr(1, servicename, _
LCase(processName), vbTextCompare) > 0 Then
ret = oService.Terminate
End If
Next
'-----------------------------------------------------------
'---------se
não encontrar
Set oServices = Nothing
Set oWMI = Nothing
'------------------------------
'--captura
de erro
ErrHandler:
Err.Clear
'-----------------------
End Sub
Para finalizar algum processo use o código abaixo no evento desejado:
KillProcess ("nome do processo")
ex: KillProcess ("notepad.exe")
Para
baixar o Projeto Clique aqui
© 2009 Todos os Direitos Reservados a Tornado Digital Página Principal - Dicas e Truques - Frases - Downloads - Forúm - Fale Conosco