我目前在做一个NT service 的程序，以下这段代码在Dll中用多线程调用总是出错，各位帮忙看看是什么原因啊？

Procedure Newthread;
var
IEAddress:string;
ShellWindow: IShellwindows;
i:integer;
web:IWebBrowser2;
HTMLDocument: IHTMLDocument2;
begin
CoInitialize ;
shellwindow:= CoShellWindows.Create; //就是这句出错
for i:=0 to shellwindow.Count-1 do
begin
Web:=shellwindow.Item(i) as IWebbrowser2;
IEAddress:=Web.LocationURL;
if Application.MessageBox(PChar(IEAddress),Pchar(Caption),MB_YesNo)=IDYes then
begin
HTMLDocument := Web.Document as IHTMLDocument2;
RichEdit1.Lines.Text:=HTMLDocument.body.Get_innerHTML;
end;
end;
CoUninitialize()
end;

錯誤訊息？

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

似乎是 未出始化的错误，CoInitialize ;这句似乎没起作用，我把同样的代码移到Exe文件中运行一切正常，就是放到Dll文件中不行了。
我是在编译以后启动服务出的错，用Showmessage判断出的出错语句，这种Dll要如何调试才能得到详细信息啊？

編輯記錄