Закрыть Excel-процесс при закрытии SaveDialog

[Сережа]

К примеру, есть кнопка "сохранить отчет", нажимаю - отчет генерируется в xls, но он скрыт от глаз, запускается SaveDialog с предложением выбрать место куда стоит сохранить отчет, вдруг я понимаю, что не хочу ничего сохранять и нажимаю "отмена" в SaveDialog, при этом сгенерированный отчет должен закрыться безо всяких вопросов о сохранении и убить процесс Excel.exe. С отображением вопросов вроде решил, а вот процесс не убивается. Где-то накосячил...

Код: Выделить всё

procedure TOtchetForm1.Button2Click(Sender: TObject);
begin
  OtchetForm1.GoOtchet(false);
    if SaveDialog1.Execute then begin
         XLApp.ActiveWorkBook.SaveAs(WideString(SaveDialog1.FileName));
    end
    else begin
    SaveDialog1.Free;
     XLApp.ActiveWorkbook.Close(SaveChanges := false);
    end;
     XLApp.Quit;
end;

[Ism]

Получайте pid процесса и грохайте командой, в зависимости от оси

[скалогрыз]

так?

Код: Выделить всё

procedure TOtchetForm1.Button2Click(Sender: TObject);
begin
  OtchetForm1.GoOtchet(false);
  if SaveDialog1.Execute then begin
    XLApp.ActiveWorkBook.SaveAs(WideString(SaveDialog1.FileName));
  end else begin
    SaveDialog1.Free;
    XLApp.ActiveWorkbook.Close(SaveChanges := false);
  end;
  XLApp.DisplayAlerts := false; 
  XLApp.Quit;
end;

[Сережа]

так?

Так я уже пробовал, не закрывается

[Лекс Айрин]

Ism хорошая идея... запустил прогу, а она грохает у тебя открытую программу электронных таблиц. При том, что excel у человека может быть вообще не установлен.

[Сережа]

есть еще варианты?

[Снег Север]

Правильнее всего было бы правильно поставить задачу. Например, сначала сохранять файл, а только затем открывать в Excel, если сохранение подтверждено. И все проблемы уходят немедленно...