delphi转excel后作为附件发送,仅1K且无法打开

Question

我实现把数据库中某表导出,然后保存为excel后,进行发送.
如果我转excel后,加上一个Application.Terminate;然后另一个程序进行发送带附件邮件,那没什么问题~一切正常,数据都有.
但是:我如果把两个程序整和在一起,取消掉Application.Terminate.(是否内存中没有释放) 那么我这个发送过去的附件仅1k且无法打开.(正常情况下为40K.).请高手指导下啊~部分代码如下:  app.DisplayAlerts:=false;
  app.ActiveWorkBook.Saved:=True ;
   Screen.Cursor:=crDefault; app.ActiveWorkbook.Save;
 str:='2009'+'.'+'xls';
//**************************************************************
app.Save(ExtractFilePath(application.ExeName)+str);    app.quit;
   app:=Unassigned;    showmessage('ok');
Application.Terminate; 
//这句是将程序彻底终止了,才可以打开发送的附件. 我估计是否是内存中有什么没释放,这句如何修改可保证程序发送成功?sendemail;//这个是发送邮件.没什么问题//****************************************************

Answer 1

保存为excel 后，你接着发送估计这个时候你没关闭excel。
就恰好要发送的程序被占用。猜测。试试

Answer 2

那怎么修改? 我觉得
app.quit; 
app:=Unassigned;
应该已经处理了啊~~

Answer 3

退出的时候是否需要确认？TerminateProcess可行吗？

Answer 4

不需要啥确认~ 只能能发送的附件有东西就可以了~ 
TerminateProcess 这个怎么用啊~~