* Fixed service description

git-svn-id: trunk@13335 -

packages/fcl-base/src/daemonapp.pp

@@ -236,6 +236,7 @@ Type
   Published
     Property DaemonClassName : String Read FDaemonClassName Write FDaemonClassName;
     Property Name : String Read FName Write SetName;
+    Property Description : String Read FDescription Write FDescription;
     Property DisplayName : String Read FDisplayName Write FDisplayName;
     Property RunArguments : String Read FRunArgs Write FRunArgs;
     Property Options : TDaemonOptions Read FOptions Write FOptions;

packages/fcl-base/src/win/daemonapp.inc

@@ -185,12 +185,13 @@ Procedure TCustomDaemonApplication.SysInstallDaemon(Daemon : TCustomDaemon);
 
 Var
   SM,SV: SC_HANDLE;
-  N,DN,E,LG,UN,UP : String;
+  SD,N,DN,E,LG,UN,UP : String;
   DD : TDaemonDef;
   ST,STT,ES: Integer;
   IDTag : DWord;
   PIDTag : LPDWord;
   PDeps,PN,PP : PChar;
+  D : TServiceDescriptionA;
   
 begin
   SM:=TSMData(FSysData).FHandle;
@@ -243,6 +244,9 @@ begin
     If (SV=0) then
       RaiseLastOSError;
     Try
+      SD:=DD.Description;
+      D.lpDescription:=Pchar(SD);
+      ChangeService2(SV,SERVICE_CONFIG_DESCRIPTION,@D);
       If (PIDTag<>Nil) then
         DD.WinBindings.IDTag:=IDTag;
     finally