* Added RunArguments

git-svn-id: trunk@11669 -

packages/fcl-base/src/daemonapp.pp

@@ -224,6 +224,7 @@ Type
     FOptions: TDaemonOptions;
     FServiceName: String;
     FWinBindings: TWinBindings;
+    FRunArgs : String;
     procedure SetName(const AValue: String);
     procedure SetWinBindings(const AValue: TWinBindings);
   Protected
@@ -237,6 +238,7 @@ Type
     Property DaemonClassName : String Read FDaemonClassName Write FDaemonClassName;
     Property Name : String Read FName Write SetName;
     Property DisplayName : String Read FDisplayName Write FDisplayName;
+    Property RunArguments : String Read FRunArgs Write FRunArgs;
     Property Options : TDaemonOptions Read FOptions Write FOptions;
     Property Enabled : Boolean Read FEnabled Write FEnabled default true;
     Property WinBindings : TWinBindings Read FWinBindings Write SetWinBindings;

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

@@ -199,8 +199,11 @@ begin
   If (Pos(' ',E)<>0) then
     E:='"'+E+'"';
   E:=E+' --run'; // Add --run argument;
+  If (DD.RunArguments<>'') then
+    E:=E+' '+DD.RunArguments;
   N:=DD.Name;
   DN:=DD.DisplayName;
+  
   With DD.WinBindings do
     begin
     LG:=GroupName;