急!关于NT服务中多线程及Excel的问题! ( 积分: 100 )

程序在线程中访问数据库，并打开Excel程序CreateOleObject('Excel.Application');
并增加一个工作薄，写入数据后保存。
问题是：在作为程序运行时正常，但以NT服务方式运行时，
Excel弹出“正在进行安装...”的对话框，提示安装Excel功能，并且停止
服务后，已打开的Excel(不显示状态)也无法在任务管理器中结束进程。
试过在线程开始时Coinitialize(nil);
destroy 时CoUninitialize;也 不行。

程序在线程中访问数据库，并打开Excel程序CreateOleObject('Excel.Application');
并增加一个工作薄，写入数据后保存。
问题是：在作为程序运行时正常，但以NT服务方式运行时，
Excel弹出“正在进行安装...”的对话框，提示安装Excel功能，并且停止
服务后，已打开的Excel(不显示状态)也无法在任务管理器中结束进程。
试过在线程开始时Coinitialize(nil);
destroy 时CoUninitialize;也 不行。