在开发windows服务的时候，想要连接数据库，可是发现在创建的时候就出错了，看看VCL里面的ADO创建的代码，发现是基于COM的调用的：
FConnectionObject := CreateADOObject(CLASS_Connection) as _Connection;
OleCheck(ConnectionPoint.Advise(Self as IUnknown, FConnEventsID));
所以得在服务启动的时候，初始化一下COM：
CoInitialize(nil);
对应的，在服务停止的时候，需要：
CoUninitialize;
Delphi可以很轻松地开发windows服务，可是调试的时候，确有问题。服务能跑起来，可以把把调试器附加到服务的进程上。如果服务起不来呢？该如何调试呢？
如果直接按F9，则服务只是被创建，还没有起动，就会自已退出去了。
我想到的办法就是让服务以普通程序的方式来运行。
为了使用同一份代码，所以我彩用条件编译的方式来实现，在工程的DPR文件里面加上条件：
DELPHI的VCL可以说是一个很精妙的设计。对于一个普通程序来说，它初始化出来的Application是TApplication,而服务的Application是TServiceApplication，所以在想让服务以应用程序的方式来运行的话，一定得处理单元头：
uses
{$IFDEF RUNASAPP}
Forms,
{$ELSE}
SvcMgr,
{$ENDIF}
在这里，我的条件是RUNASAPP，在调试的时候，我就加上这个条件来编译，在正常发布的时候就把这个条件去掉。
由于要调用服务的ServiceStart方法，所以得定义一个变量：
{$IFDEF RUNASAPP}
var
b: Boolean;
{$ENDIF}
同时，原来的应用程序代码也要改成：
Application.Initialize;
Application.CreateForm(TMyservice, MyService);
{$IFDEF RUNASAPP}
MyService.ServiceStart(nil, b);
{$ENDIF}
Application.Run;
{$IFDEF RUNASAPP}
Readln;
{$ENDIF}
加Readln的目标是不让ServiceStart完成后，就退出程序。
这下，服务也可以和应用程序一样的，按F9后开始调试。