paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 23:07:14 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Removed debug define, removed stray flush() statement

Browse Source 
git-svn-id: trunk@17557 -
This commit is contained in:
michael 2011-05-25 19:42:50 +00:00
parent 9c27a802a0
commit 97012c377f
2 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
packages/fcl-extra/src/daemonapp.pp
View File

@ -19,14 +19,14 @@ interface
uses
Custapp, Classes, SysUtils, eventlog, rtlconsts;
Type
TCustomDaemon = Class;
TDaemonController = Class;
TDaemonEvent = procedure(Sender: TCustomDaemon) of object;
TDaemonOKEvent = procedure(Sender: TCustomDaemon; var OK: Boolean) of object;
TDaemonOption = (doAllowStop,doAllowPause,doInteractive);
TDaemonOptions = Set of TDaemonOption;
@ -412,7 +412,7 @@ Resourcestring
SHelpUnInstall = 'To uninstall the service';
SHelpRun = 'To run the service';
{$define svcdebug}
{ $define svcdebug}
{$ifdef svcdebug}
Procedure DebugLog(Msg : String);
@ -852,11 +852,14 @@ end;
procedure TCustomDaemonApplication.ShowHelp;
begin
writeln(Format(SHelpUsage,[ParamStr(0)]));
writeln(SHelpCommand);
writeln(' -i --install '+SHelpInstall);
writeln(' -u --uninstall '+SHelpUnInstall);
writeln(' -r --run '+SHelpRun);
if IsConsole then
begin
writeln(Format(SHelpUsage,[ParamStr(0)]));
writeln(SHelpCommand);
writeln(' -i --install '+SHelpInstall);
writeln(' -u --uninstall '+SHelpUnInstall);
writeln(' -r --run '+SHelpRun);
end
end;
procedure TCustomDaemonApplication.CreateForm(InstanceClass: TComponentClass;

1
packages/fcl-extra/src/win/daemonapp.inc
View File

@ -237,7 +237,6 @@ begin
PDeps:=GetDependencies(Dependencies);
end;
Try
flush(output);
SV:=CreateService(SM, PChar(N), PChar(DN), SERVICE_ALL_ACCESS, ST, STT, ES,
PChar(E), PChar(LG), PIDTag, PDeps, PN, PP);
If (SV=0) then