Como Fechar Um Programa Em Delphi 5 ?

[_JaPoNeS_]

Por favor se alguém souber um codigo para fechar um programa especifico no delphi 5 por favor me responda...

Ex: se eu quiser fechar o internet explorer com um clique de um botao como eu faço isso ? Valews galera !

[Progr'amador]

Tenho um exemplo que fecha pelo título do aplicativo, nesse caso do internet explorer eu acho não vai funcionar , esse exemplo fecha a calculadora do windows.

procedure TForm1.Button1Click(Sender: TObject);
var
  MinhaHandle: THandle;
begin
  MinhaHandle:=FindWindow(nil, 'Calculadora');
  SendMessage(MinhaHandle, WM_CLOSE, 0, 0);
end;

[MartinsBios]

veja o exemplo abaixo:

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

ou esse

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

Espero ter lhe ajudado.