Saber se um Executavel está aberto

[mfelis]

Gostaria de saber se um certo executavel.exemplo "Notepad.exe" está aberto em alguma estação.

[cabeludo]

Se voce tiver acesso pela rede, tente abrir o exe em modo binario com acesso de escrita (como de fosse usá-lo como saida de dados)...
Se o programa estiver rodando, o windows bloqueia seu acesso (pra leitura tá ok!)...

Se não entendeu, avisa!

[alceu11]

Codigo

Código:


Public _SISTEMA
_SISTEMA = "Contabil Nenhuma Empresa Ativa - versão 1.00a"
Declare Integer FindWindow In WIN32API String, String
Declare Integer BringWindowToTop In WIN32API Integer
Declare Integer IsWindow In WIN32API Integer
HPREV = FindWindow(0, _SISTEMA)
If (IsWindow(HPREV)<>0)
  = BringWindowToTop(HPREV)
  _Screen.Caption = _SISTEMA
  = Messagebox('O SISTEMA JÁ ESTÁ EM USO NESTA MÁQUINA !!!', 000, 'Atenção')
  Return
Endif
Release HPREV
Clear Dlls
Clear
Clear All



nesta variavel que é o caption da minha janela principal, do meu sistema

_SISTEMA = "Contabil Nenhuma Empresa Ativa - versão 1.00a"

Se ele encontrar avisa

Esta rotina esta no "START" DO MEU PROGRAMA PRINCIPAL NAS PRIMEIRAS LINHAS DE PROGRAMACAO...

[marcio]

Se tiver acesso ao servidor, entra no Gerencia do Meu Computador (botão de atalho), expande a Pastas Compartilhadas, clica em Arquivos Abertos, aí é só procurar pelo seu exe, e saber quem está com ele aberto.

Att...

Márcio

[cabeludo]

É curioso como cada um entendeu de modo diferente a pergunta...
MFelis, esclarece pra nós o que você realmente quer...

[marcio]

Kkkkkk....

Tem razão cabeludo. Cada um propos entendeu e propos uma solução diferente para o mfelis, vamos aguardar ele nos responder se alguém fez bingo ou ainda não.

[mfelis]

OLá.Pessoal irei explicar o que quero.vou dar um exemplo o Office Word tem como caption o nome do documento assim fica dificil eu fechar ele.no meu programa tenho uma rotina que quando ele está aberto não posso usa-lá assim preciso saber se ele já foi fechado.para isso tenho de ter uma rotina que verifique se o Executavel do Word já fechou.

Pessoal se quiser me Chamar de Marcelo ao Invés de mfelis seria melhor

[cabeludo]

Tudo bem Marcelo.
Com a devida alteração, acredito que a solução do Alceu resolva seu problema.
Se funcionar, marque o tópico como resolvido, ok?

[Marcos Guedes]

Gostaria de saber se um certo executavel.exemplo "Notepad.exe" está aberto em alguma estação.

Veja este link:
[Você precisa estar registrado e conectado para ver este link.]

[Marcos Guedes]

Serviu, mfelis?

[mfelis]

thanks