Verificar se prog. esta aberto e fechar-lo

Ola SAnse

vc 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

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

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;