Merge branch 'development'

HashLoad · Jul 24, 2019 · 68bcfd3 · 68bcfd3
2 parents 5c13676 + cffc002
commit 68bcfd3
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/src/core/Boss.Modules.PackageProcessor.pas b/src/core/Boss.Modules.PackageProcessor.pas
@@ -82,6 +82,16 @@ function TBossPackageProcessor.GetEnv(AEnv: string): string;
     + C_ENV + AEnv;
 end;
 
+procedure DeleteDirectory(const DirName: string);
+var
+  FileOp: TSHFileOpStruct;
+begin
+  FillChar(FileOp, SizeOf(FileOp), 0);
+  FileOp.wFunc := FO_DELETE;
+  FileOp.pFrom := PChar(DirName+#0);
+  FileOp.fFlags := FOF_SILENT or FOF_NOERRORUI or FOF_NOCONFIRMATION;
+  SHFileOperation(FileOp);
+end;
 
 procedure TBossPackageProcessor.MakeLink(AProjectPath, AEnv: string);
 var
@@ -90,7 +100,7 @@ procedure TBossPackageProcessor.MakeLink(AProjectPath, AEnv: string);
 begin
   try
     if DirectoryExists(GetEnv(AEnv)) then
-      TFile.Delete(GetEnv(AEnv));
+      DeleteDirectory(GetEnv(AEnv));
 
     ForceDirectories(GetEnv(AEnv));