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 11: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 15:19
Cidade/Estado: Feira de Santana - BA
Curtiu: 27 vezes
Mens.Curtidas: 13 vezes

Sabe se um programa esta em execução?

Mensagempor sygecom » 19 Jan 2017 16: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

Faça você também sua doação esse fórum é uma lenda viva: http://www.pctoledo.com.br/doacao
Avatar de usuário

sygecom
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 7005
Data de registro: 21 Jul 2006 10:12
Cidade/Estado: Alvorada-RS
Curtiu: 1 vez
Mens.Curtidas: 130 vezes

Sabe se um programa esta em execução?

Mensagempor Kapiaba » 20 Jan 2017 08:38

Bom dia Daiane, veja o comando:

   ISEXERUNNING()


Do Fivewin the best. Saludos.
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1765
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 310 vezes
Mens.Curtidas: 119 vezes




Retornar para FiveWin

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 10 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
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