Moderador: Moderadores
IF StatusExe(Pega_Arquivo_Sagi(6),1)=.F. // só abre se não tiver em execução
ALERT('NAO ESTA ABERTO')
ENDIF
****************************************
FUNCTION STATUSEXE(cExecutavel,nDERRUBA) //verefica se o EXE já está rodando, ou derruba o EXE que está rodando
****************************************
Local oScriptObj, oWmiService, oListaProcess, oProcessos, lRET:=.F.
//oWmiService=Service_WMI()
TRY
oScriptObj=CREATEOBJECT("wbemScripting.SwbemLocator")
oWmiService=oScriptObj:ConnectServer()
CATCH
RETURN(lRET)
END
TRY
oListaProcess=oWmiService:ExecQuery("select * from Win32_Process where Name='"+cExecutavel+"'")
CATCH
RETURN(lRET)
END
FOR Each oProcessos in oListaProcess
lRET:=.t.
IF nDERRUBA=2
oProcessos:Terminate() // derruba o EXE
ENDIF
NEXT
RETURN(lRET)
ISEXERUNNING()
Usuários vendo este fórum: Nenhum usuário registrado online e 8 visitantes