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

Sabe se um programa esta em execução?

Discussão sobre a biblioteca Fivewin - O Clipper para Windows.

Moderador: Moderadores

 

Sabe se um programa esta em execução?

Mensagempor Daiane » 19 Jan 2017 12:35

Como saber se um programa exe esta em execução ou se um arquivo.bat esta em aberto?
XHb 1.2.1 + FW 12.05 + Pelles C IDE
"Eu adoraria mudar o mundo, mas não me deram o código-fonte."
Avatar de usuário

Daiane
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 122
Data de registro: 28 Out 2014 16:19
Cidade/Estado: Feira de Santana - BA
Curtiu: 27 vezes
Mens.Curtidas: 12 vezes

Sabe se um programa esta em execução?

Mensagempor sygecom » 19 Jan 2017 17:17

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)
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
leonardodemachado@hotmail.com
Avatar de usuário

sygecom
Membro Master

Membro Master
 
Mensagens: 6445
Data de registro: 21 Jul 2006 11:12
Cidade/Estado: Alvorada-RS
Curtiu: 1 vez
Mens.Curtidas: 45 vezes

Sabe se um programa esta em execução?

Mensagempor Kapiaba » 20 Jan 2017 09:38

Bom dia Daiane, veja o comando:

   ISEXERUNNING()


Do Fivewin the best. Saludos.
Kapiaba
Usuário Nível 5

Usuário Nível 5
 
Mensagens: 1264
Data de registro: 07 Dez 2012 16:14
Cidade/Estado: São Paulo
Curtiu: 251 vezes
Mens.Curtidas: 81 vezes




Retornar para FiveWin

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 1 visitante


Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro