Sabe se um programa esta em execução?

[Daiane]

Como saber se um programa exe esta em execução ou se um arquivo.bat esta em aberto?

[sygecom]

Código: Selecionar todos

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)

[Kapiaba]

Bom dia Daiane, veja o comando:

Código: Selecionar todos

   ISEXERUNNING()

Do Fivewin the best. Saludos.