Browse Source

[appservice] global info

Exilon 4 years ago
parent
commit
7b2ede98cb
1 changed files with 1 additions and 0 deletions
  1. 1 0
      Quick.AppService.pas

+ 1 - 0
Quick.AppService.pas

@@ -188,6 +188,7 @@ begin
   fStatus := TSvcStatus.ssStopped;
   fStatus := TSvcStatus.ssStopped;
   fCanInstallWithOtherName := False;
   fCanInstallWithOtherName := False;
   fOnExecute := nil;
   fOnExecute := nil;
+  IsQuickServiceApp := True;
 end;
 end;
 
 
 destructor TAppService.Destroy;
 destructor TAppService.Destroy;