Noobezinho 11/11/2015, 13:38
Luiz
Aqui está um código que fecha arquivos executáveis.
Achei que já tinha postado isso pra você, mas ao
revisar, vi que não, desculpe.
Veja, como precisa colocar o nome do executável dentro
da função, sugiro que teu programa solicite ao usuário,
o nome do Reader que está usando, já que com o WebBrowser
pode-se usar qualquer Reader.
Assim o código da função irá procurar na tabela o nome do
Reader que está instalado.
Caso queira deixar mais automatizado, procure na net um
código que informe qual Reader está instalado, ou seja,
sempre que iniciar, verifica.
Em tempo: os dois códigos foram testados e aprovados.
[ ]'s
- Código:
Function TerminateApp()
'---------------------------------------------------------------------------------------
' Terminates the exe process specified.
' Uses WMI (Windows Management Instrumentation) to query all running processes
' then terminates ALL instances of the exe process held in the variable strTerminateThis.
'---------------------------------------------------------------------------------------
Dim strTerminateThis As String
'The variable to hold the process to terminate
Dim objWMIcimv2 As Object, objProcess As Object, objList As Object
Dim intError As Integer
'Process to terminate – you could specify and .exe program name here
strTerminateThis = "FoxitReader.exe"
'Connect to CIMV2 Namespace and then find the .exe process
Set objWMIcimv2 = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set objList = objWMIcimv2.ExecQuery("select * from win32_process where name='" & strTerminateThis & "'")
For Each objProcess In objList
intError = objProcess.Terminate 'Terminates a process and all of its threads.
'Return value is 0 for success. Any other number is an error.
If intError <> 0 Then Exit For
Next
'ALL instances of exe (strTerminateThis) have been terminated
Set objWMIcimv2 = Nothing
Set objList = Nothing
Set objProcess = Nothing
End Function
.................................................................................
A pergunta que não quer calar:Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
para enviar parte do projeto, não temos mais continuidade do tópico?
Crê que temos bolas de cristal ou está com medo que "roubemos" a
idéia/projeto dele? 
Se é tão bom assim...Ajude a ser ajudado:Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
sem precisar procurar o mesmo.
Início
[/img]