Fechando outro programa

//Exemplo de como fechar a calculadora a partir do texto da janela

Procedure TForm1.Button1Click(Sender: TObject);
begin
PostMessage(FindWindow(nil, 'Calculadora'), WM_CLOSE,0,0);
end;

//Exemplo de como fechar a calculadora a partir da classe

Procedure TForm1.Button1Click(Sender: TObject);
begin
PostMessage(FindWindow('scicalc', nil), WM_CLOSE,0,0);
end; {Obs.: A classe de um programa pode ser descoberta usando o programa Winsight32 que vem com o delphi.}