SABER SE UM PROGRAMA ESTA EM EXECUCAO
galera preciso de uma funçao que faça o seguinte: verifique se um programa esta em execução, se estiver ela aguarda ate que o programa seja finalizada para continuar.
aguem pode me ajudar.
aguem pode me ajudar.
Faz esse teste ....isso aki tira o Programa da Lista de Processo do windows....dai vc Implementa o Resto...tenta ae
Private Declare Function FindWindow Lib [Ô]user32[Ô] Alias [Ô]FindWindowA[Ô] _
(ByVal ilClasse As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib [Ô]user32[Ô] (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Private Declare Function SetForegroundWindow Lib [Ô]user32[Ô] (ByVal hwnd As Long) As Long
Private Sub MDIForm_Unload(Cancel As Integer)
On Error GoTo Erro
Dim vhwnd As Long
Dim hSnapShot As Long, hProcess As Long
Dim uProcess As PROCESSENTRY32
Dim I As Long
31: vhwnd = FindWindow(vbNullString, [Ô]Magic - Controle Geral dos Sistemas[Ô])
32: Call ShowWindow(vhwnd, 3)
33: Call SetForegroundWindow(vhwnd)
[ô]Finaliza Winoldap na lista de Processos do Windows
1: hSnapShot = CreateToolhelpSnapshot(2, 0)
2: uProcess.dwSize = LenB(uProcess)
3: hProcess = Process32First(hSnapShot, uProcess)
4: Do While hProcess
5: hProcess = Process32Next(hSnapShot, uProcess)
6: If UCase(InStr(UCase(Replace(uProcess.szExeFile, Chr(0), [Ô][Ô])), [Ô]MFOLHA.EXE[Ô])) <> 0 Then
7: hProcess = OpenProcess(&H1F0FFF, 1, uProcess.th32ProcessID)
8: TerminateProcess hProcess, 0
9: Exit Sub
10: End If
11: Loop
Exit Sub
Erro:
TratarErro [Ô]frmPrincipal[Ô], [Ô]MDIForm_Unload[Ô], Err.Number, Err.Description, Erl
End Sub
Private Declare Function FindWindow Lib [Ô]user32[Ô] Alias [Ô]FindWindowA[Ô] _
(ByVal ilClasse As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib [Ô]user32[Ô] (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Private Declare Function SetForegroundWindow Lib [Ô]user32[Ô] (ByVal hwnd As Long) As Long
Private Sub MDIForm_Unload(Cancel As Integer)
On Error GoTo Erro
Dim vhwnd As Long
Dim hSnapShot As Long, hProcess As Long
Dim uProcess As PROCESSENTRY32
Dim I As Long
31: vhwnd = FindWindow(vbNullString, [Ô]Magic - Controle Geral dos Sistemas[Ô])
32: Call ShowWindow(vhwnd, 3)
33: Call SetForegroundWindow(vhwnd)
[ô]Finaliza Winoldap na lista de Processos do Windows
1: hSnapShot = CreateToolhelpSnapshot(2, 0)
2: uProcess.dwSize = LenB(uProcess)
3: hProcess = Process32First(hSnapShot, uProcess)
4: Do While hProcess
5: hProcess = Process32Next(hSnapShot, uProcess)
6: If UCase(InStr(UCase(Replace(uProcess.szExeFile, Chr(0), [Ô][Ô])), [Ô]MFOLHA.EXE[Ô])) <> 0 Then
7: hProcess = OpenProcess(&H1F0FFF, 1, uProcess.th32ProcessID)
8: TerminateProcess hProcess, 0
9: Exit Sub
10: End If
11: Loop
Exit Sub
Erro:
TratarErro [Ô]frmPrincipal[Ô], [Ô]MDIForm_Unload[Ô], Err.Number, Err.Description, Erl
End Sub
é quase isso
so que nao posso finalizar o programa que esta em execução, eu tenho que espera ele finalizar sozinho.
so que nao posso finalizar o programa que esta em execução, eu tenho que espera ele finalizar sozinho.
vixi kara....mas dependendo do .exe...nao finaliza Sozinho não....tive que montar esse Código pq o Processo não Finalizava...a não ser que Reiniciava o Pc,,,caso contrário...ficava rodando no Processo e não finalizava sozinho não...
nao mais este finaliza sim, é o seguinte criei um programa de compactação de arquivos tipo winzip, e uso ele como um modulo auxiliar nos meus outros projetos.
ai quando vou efetuar o backup em meus projetos xamo esse modulo de compactação via linha de comando. o que o modulo faz é apenas carregar, efetuar a compactação, e finalizar. tudo automatico. entao precisa apenas esperar que ele finalize para que eu volte a usar meu projeto com conexao ao db.
ai quando vou efetuar o backup em meus projetos xamo esse modulo de compactação via linha de comando. o que o modulo faz é apenas carregar, efetuar a compactação, e finalizar. tudo automatico. entao precisa apenas esperar que ele finalize para que eu volte a usar meu projeto com conexao ao db.
Faz um while entao... e de preferencia use um timer.
Caio veja se isto te ajuda
em um módulo cole
2-) A seguir insira o seguinte código no formulário padrão:
3-) Agora adicione um botão de comando - command1 - ao formulário e no evento click do botão digite o seguinte código:
bom vc irá chamar seu programa e quando ele for encerrado vc saberá
em um módulo cole
Public Type STARTUPINFO
cb As Long
lpReserved As String
lpDesktop As String
lpTitle As String
dwX As Long
dwY As Long
dwXSize As Long
dwYSize As Long
dwXCountChars As Long
dwYCountChars As Long
dwFillAttribute As Long
dwFlags As Long
wShowWindow As Integer
cbReserved2 As Integer
lpReserved2 As Long
hStdInput As Long
hStdOutput As Long
hStdError As Long
End Type
Public Type PROCESS_INFORMATION
hProcess As Long
hThread As Long
dwProcessID As Long
dwThreadID As Long
End Type
Public Declare Function WaitForSingleObject Lib _
[Ô]kernel32[Ô] (ByVal hHandle As Long, ByVal dwMilliseconds _
As Long) As Long
Declare Function CreateProcessA Lib [Ô]kernel32[Ô] _
(ByVal lpApplicationName As Long, ByVal lpCommandLine As _
String, ByVal lpProcessAttributes As Long, ByVal _
lpThreadAttributes As Long, ByVal bInheritHandles As Long, _
ByVal dwCreationFlags As Long, ByVal lpEnvironment As Long, _
ByVal lpCurrentDirectory As Long, lpStartupInfo As _
STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) _
As Long
Declare Function CloseHandle Lib [Ô]kernel32[Ô] (ByVal hObject _
As Long) As Long
Public Const NORMAL_PRIORITY_CLASS = &H20&
Public Const INFINITE = -1& 2-) A seguir insira o seguinte código no formulário padrão:
Public Sub ExecCmd(cmdline$)
Dim proc As PROCESS_INFORMATION
Dim start As STARTUPINFO
[ô]Inicia a strutura STARTUPINFO
start.cb = Len(start)
[ô]Inicia a aplicação escolhida para ser executada
ret& = CreateProcessA(0&, cmdline$, 0&, 0&, 1&, _
NORMAL_PRIORITY_CLASS, 0&, 0&, start, proc)
[ô]Aguarda a aplicação iniciada terminar
ret& = WaitForSingleObject(proc.hProcess, INFINITE)
ret& = CloseHandle(proc.hProcess)
End Sub 3-) Agora adicione um botão de comando - command1 - ao formulário e no evento click do botão digite o seguinte código:
Private Sub Command1_Click()
Call ExecCmd([Ô]c:\seu programa de zipar.exe[Ô])
MsgBox [Ô]O seu programa foi encerrado[Ô]
End Sub bom vc irá chamar seu programa e quando ele for encerrado vc saberá
isso mesmo MARCELO, genial.
abraços a todos.
abraços a todos.
Tópico encerrado , respostas não são mais permitidas