Hi,
 Im trying to write W2K service application on W2K professional with Delphi6
 Ent.
 I wrote service application. My service doing everything well. On service,
 ServiceStart event, I running a function in another unit;

 procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
 begin
    p_init_service;
    Started:=true;
 end;

 in init procedure;

 //  dm is datamodule
 //  ComSrv is TDCOMConnection
 //  Im experienced with writing COM applications.

    try
       dm:=Tdm.Create(Application);
    except
       //write exception to logs
    end;

   if dm.ComSrv.Connected then dm.ComSrv.Connected:=false;

   dm.ComSrv.ComputerName:=App.COMServer;  //give the server name by code

   try
     dm.ComSrv.Connected:=true;  // It hang here
   except
   end;

 When I debug it as explained in delphi helps (Attaching to Process) I saw
 that there is an exception message;
 "CoInitialize has not been called"
 What is the problem?

 Thanks.

 Grcan YUCEL
 gyu...@g-gsoft.com

 In windows programming I create datamodule and connected to DCOMServer many
 times. There is no problem.
 But in NT service I could not do it.

 Anyone has an idea?