為Windows服務加上自己的描述

//服務程序
type
　TServiceX=class(TService)
//-----------------類名為SerivceX　
procedureTServiceX.ServiceStart(Sender:TService;varStarted:Boolean);
begin
　Svcmgr.Application.CreateForm(TDataModule,DM);
　Started:=True;
end;
procedureTDM.DataModuleCreate(Sender:TObject);
begin
　ConnDB;
　CloseDB;
　SetDescription('ServiceX','安全服務X'+'['+FormatDateTime('YYYY-MM-DD',Now)+']');
　//['+FormatDateTime('YYYY-MM-DD',Now)+']'可以寫入你自己的版本號。
end;
procedureTDM.SetDescription(vClassName,vDescription:string);//增加服務描述
var
　vReg:TRegistry;
　vPath:string;
begin
　vReg:=TRegistry.Create;
　vPath:='SYSTEMCurrentControlSetServices'+vClassName;
　withvRegdobegin
　　RootKey:=HKEY_LOCAL_MACHINE;
　　ifOpenKey(vPath,True)thenbegin
　　　　WriteString('Description',vDescription);
　　end;
　　CloseKey;
　end;
　vReg.Free;
end;

　　VC++的我就不寫了，原理相同，DELPHI開發效率簡直高得驚人。。。。。。