Verificar se um programa está aberto

[Eduardo_Santos 0]

Boa tarde, alguém poderia me dizer qual a instrução que verifica se um programa está aberto?Grato,Eduardo.

[Vinicius Callegaro 0]

420 - Verificar se determinado programa está em execução (Word, Delphi, etc){ Coloque um Button no Form e altere o evento OnClick deste como abaixo: }procedure TForm1.Button1Click(Sender: TObject);begin{ Verifica o Delphi }if FindWindow('TAppBuilder', nil) > 0 thenShowMessage('O Delphi está aberto')elseShowMessage('O Delphi NÃO está aberto');{ Verifica o Word }if FindWindow('OpusApp', nil) > 0 thenShowMessage('O Word está aberto')elseShowMessage('O Word NÃO está aberto');{ Verifica o Excell }if FindWindow('XLMAIN', nil) > 0 thenShowMessage('O Excell está aberto')elseShowMessage('O Excell NÃO está aberto');end;ObservaçõesHá uma margem de erro nesta verificação: pode haver outros programas que possuam uma janela com os mesmos nomes. Você mesmo pode criar aplicativos em Delphi e, propositadamente, criar uma janela com um destes nomes.

[Eduardo_Santos 0]

E se o programa for o Windows Media Player? Como fica a instrução: FindWindow(???, nil) ?

[Vinicius Callegaro 0]

if FindWindow('WMPlayerApp', nil) > 0 then  ShowMessage('Está aberto')else  ShowMessage('NÃO está aberto');

http://www.google.com.br/search?hl=pt-BR&a...oogle&meta= http://forum.imasters.com.br/public/style_emoticons/default/searchbeforeposting.gif

[marcio.theis 3]

Tente o seguinte:

 

if FindWindow('WMPlayerApp', nil) > 0 then	ShowMessage('O Windows Media Player está aberto')else	ShowMessage('O Windows Media Player NÃO está aberto');

[Eduardo_Santos 0]

Muito bom. Como posso fazer uma aplicação que gerencie qual aplicação estará rodando (por exemplo: tenho dois processos abertos, um é um pograma de consulta a uma base de dados em Firebird, o outro é o Windows Media Player), sabendo que o aplicativo que fará esse gerenciamento estará em segundo plano?O objetivo dessa solução é fazer com que uma aplicação de consulta de preços de produtos de supermercado esteja disponível para o cliente, mas se essa aplicação estiver ociosa por 10 segundos, é carregado um vídeo do Windows Media Player para fins de propaganda. Quando algum cliente consultar novamente preços de produtos, o vídeo será fechado ou simplesmente colocado em segundo plano. E o processo se repete.Agradeço quem poder me orientar quanto ao desenvolmento de um programa, que rode em segundo plano e gerencie o tempo de execução de outros processos.

[Vinicius Callegaro 0]

Não tem como fazer uma proteção de tela que o tempo oscioso seja de 10 segundos?

[bdexterholland 0]

Ou colocar um animete window que reproduza o vídeo?

[marcio.theis 3]

Tb acho mais interessante você criar uma tela dentro do seu programa com um MediaPlayer ou qualquer outro componente que exiba vídeos, sendo que quando vai consulta, ou seja, dispara a consulta, você abre esta tela e deixa o filme rolando, quando acabar a consulta, você fecha a tela... Assim não precisa se preocupar em controlar os aplicativos, e ainda vai ocupar bem menos processamento.

[Eduardo_Santos 0]

Já usei o componente Animate, mas dá erro quando o vídeo é superior a 3 Mb.