foxnt、zswang、windindance,斑竹们，还有许许多多的高手们。。。。

Question

我在一个工程里写了一个函数把数据导入到word里
现在想把这个写在一个dll里，但是却不对了怎么回事怎么办？
我很急得！
Function SaveToWord(Ahandle:Thandle;project_id:integer):Boolean;stdcall;
begin
try
     AppWord := CreateOleObject('Word.Application');
    except
     MessageDlg('请确定Microsoft Word是否安装!', mtInformation, [mbOK], 0);
    end;
     //确定是否安装了Microdoft Word
end;运行时却让我确认word的安装，可是我安装了word了！

Answer 1

没有出错信息
就是执行这句了
MessageDlg('请确定Microsoft Word是否安装!', mtInformation, [mbOK], 0);

Answer 2

请在你的调用单元里面添加：  CoInitialize(nil);

Answer 3

我用的是delphi5
怎么编译不通过！
这个句话什么意思！

Answer 4

CoInitialize(nil);
b:=SaveToWord(self.Handle,76);
CoUninitialize(nil);
编译的时候说没有定义这个标识符CoInitialize

Answer 5

想問一句,你原來在delphi5里編譯執行是否也有此問題;
我曾經有個這個情況,安裝了word老是讓我確定,在其它機器上都可以,最後我就重新安裝了word;就好了;

Answer 6

我写在工程就可以的
写到dll里好像就不行了我的那个函数写再动态连接库里

Answer 7

CoInitialize(nil);
要Uses ActiveX 单元

Answer 8

你把那个TRY语句去掉，看看真实的出错信息是什么

Answer 9

好像最后还要coUnInitialize(nil);
这个在什么单元里

Answer 10

以前看到过好像是和word的版本有关系，不过当时没留意。