Clipper On Line • Ver Tópico - Sabe se um programa esta em execução?
Página 1 de 1

Sabe se um programa esta em execução?

MensagemEnviado: 19 Jan 2017 11:35
por Daiane
Como saber se um programa exe esta em execução ou se um arquivo.bat esta em aberto?

Sabe se um programa esta em execução?

MensagemEnviado: 19 Jan 2017 16:17
por sygecom
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)

Sabe se um programa esta em execução?

MensagemEnviado: 20 Jan 2017 08:38
por Kapiaba
Bom dia Daiane, veja o comando:

   ISEXERUNNING()


Do Fivewin the best. Saludos.