Buscar por:

Verifica o programa em execução e fecha-o

Código

//Para Verificar se o Word, Excel ou Delphi está em execução pode-se testar para o MSN

//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 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; 

//Para fechar o programa utilize esta rotina abaixo:

//Titulo da janela:

Procedure Tform1.Button1Click(Sender: Tobject);

Begin

 PostMessage(FindWindow(nil, ‘Calculadora’), WM_Close, 0, 0);

End;

//Fechar a partir da Classe:

Begin

PostMessage(FindWindow (‘SciCalc’, nil), WM_Close, 0, 0);

end;

//OBS.: para descobrir a classe existe um programa que vem junto com o Delphi, que é o, WINSIGHT32.