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

* Re-added some disappeared code

Browse Source 
git-svn-id: trunk@6334 -
This commit is contained in:
michael 2007-02-04 14:53:35 +00:00
parent 762bd12d16
commit 0a5001438f
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fcl/inc/daemonapp.pp
View File

@ -662,12 +662,14 @@ end;
Function TCustomDaemon.Install : Boolean;
begin
Result:=True;
Application.SysInstallDaemon(Self);
end;
Function TCustomDaemon.UnInstall : Boolean;
begin
Result:=True;
Application.SysInstallDaemon(Self);
end;
function TCustomDaemon.HandleCustomCode(ACode: DWord): Boolean;
@ -763,7 +765,7 @@ begin
D:=CreateDaemon(DD);
Try
// Need to call this because of the before/after events.
D.Install;
D.Install;
Finally
D.Free;
end;
@ -795,7 +797,7 @@ begin
D:=CreateDaemon(FMapper.DaemonDefs[i]);
Try
// Need to call this because of the before/after events.
D.UnInstall;
D.UnInstall
Finally
D.Free;
end;