paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 13:31:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added CheckControlMessage in TCustomDaemon

Browse Source 
git-svn-id: trunk@26696 -
This commit is contained in:
michael 2014-02-06 21:22:25 +00:00
parent 628689e3e3
commit 6aaab457a7
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -57,6 +57,7 @@ Type
Function UnInstall: boolean; virtual;
Function HandleCustomCode(ACode : DWord) : Boolean; Virtual;
Public
Procedure CheckControlMessages(Wait : Boolean);
Procedure LogMessage(const Msg : String);
Procedure ReportStatus;
@ -693,6 +694,13 @@ begin
Result:=False
end;
Procedure TCustomDaemon.CheckControlMessages(Wait : Boolean);
begin
If Assigned(FThread) then
TDaemonThread(FThread).CheckControlMessage(Wait);
end;
{ TCustomServiceApplication }
procedure TCustomDaemonApplication.CreateServiceMapper(Var AMapper : TCustomDaemonMapper);