Verificar se prog. esta aberto e fechar-lo

Question

Ol� amigosPreciso verificar se determinado programa est� aberto e em seguida fecha-lo. Ser� que alguem sabe como fazer isso?ObrigadoSANSES...

Anonymous · Answer

Ola SAnsevc pode fazer deste jeito postmessage(findwindow(nil,�Sem t�tulo - Bloco de notas�),wm_quit,0,0);esta linha verifica se ele ta aberto e fecha-o se estiver :twisted: marlon...

Anonymous · Answer

obrigado por sua resposta, mas formulei mal minha pergunta. Quero verificar se um determinado programa est� aberto e se n�o estiver, desligar o windows(shutdown)SANSES...

Cvini · Answer

procedure TForm1.Button1Click(Sender: TObject);
begin
{ Verifica o Delphi }
if FindWindow(�TAppBuilder�, nil) > 0 then
ShowMessage(�O Delphi est� aberto�)
else
ShowMessage(�O Delphi N�O est� aberto�);

{ Verifica o Word }
if FindWindow(�OpusApp�, nil) > 0 then
ShowMessage(�O Word est� aberto�)
else
ShowMessage(�O Word N�O est� aberto�);

{ Verifica o Excell }
if FindWindow(�XLMAIN�, nil) > 0 then
ShowMessage(�O Excell est� aberto�)
else
ShowMessage(�O Excell N�O est� aberto�);
end;

F�rum Verificar se prog. esta aberto e fechar-lo #133998