【结贴】关于代码创建的office进程**

amnet

请问如何立即销毁代码创建的office进程，而不是等到系统完全退出时才释放

zfang

procedure TMainForm.Button1Click(Sender: TObject);
var
  openDialog:TOpenDialog;
  o,o1: Object ;
  excelApp,b: DispatchHelper;
begin
  openDialog:=TOpenDialog.Create(nil);
  if openDialog.Execute then
  begin
    o:=ComObj.CreateOleObject('Excel.Application');
    excelApp := DispatchHelper.Create(o);
    o1:=excelApp.PropertyGet('WorkBooks',[]);
  DispatchHelper.Create(o1).InvokeMethod('Open',[openDialog.FileName]);
//   =DispatchHelper.Create(excelApp.PropertyGet('WorkBooks',[])).InvokeMethod('Open',[openDialog.FileName]);
///用这样的方法可以关掉，我这边测试环境是win xp+office2003
     excelApp.InvokeMethod('Quit',[]);
     (o1 as System.IDisposable).Dispose;
    (o as System.IDisposable).Dispose;

  end;

end;

zfang

win xp +office2007环境下也没有问题

amnet

但我的代码就要等主进程关闭了才会终止office进程，现在感觉可能是所有创建出的office内部对象都要代码释放一下才行，我再试试

zfang

好。无论结果如何请反馈。

loworth

在 Windows Server 2008 Standard SP1 + Microsoft Office 2007 Enterprise 有没有问题？
或者Vista + Office 2007下

amnet

问题确实出在有些代码创建office内部对象没有释放，修改后可以了，环境是windows2003+office2003

但是用你上面最基本的代码在windows2008+office2007下试验不能关闭excel进程，其他系统环境有待进一步测试确认，希望你们有时间也测一下，各种windows和office版本组合环境下是否能成功关闭进程

loworth

WINDOWS 2003 + OFFICE 2007也没有问题。
  没有vista环境，不知道vista好使不，按理说windows2008跟vista在很多地方都是相似的。windows2008咋就不行泥。

zfang

楼主，我在win vista+office2007下测试也没有问题。

zfang

是不是程序报异常，然后没有处理关闭的原因引起的？