Программирование Delphi

Чтобы программно закрыть другое приложение, нужно послать приложению сообщение WM_QUIT. CaptionWindow является заголовком окна, которому Вы посылаете сообщение.

Пример использования:

if not KillApp('CaptionWindow') then
    ShowMessage('Приложение не закрыто!') ;

Листинг самой функции:

function KillApp(const sCapt: PChar) : boolean;
  var AppHandle:THandle;
begin
  AppHandle:=FindWindow(Nil, sCapt) ;
  Result:=PostMessage(AppHandle, WM_QUIT, 0, 0) ;
end;