|
@@ -82,7 +82,7 @@ uses
|
|
cthreads,
|
|
cthreads,
|
|
{$endif UNIX}
|
|
{$endif UNIX}
|
|
{$ifdef WINDOWS}
|
|
{$ifdef WINDOWS}
|
|
- windows, ShellApi,
|
|
|
|
|
|
+ windows,
|
|
{$endif WINDOWS}
|
|
{$endif WINDOWS}
|
|
{$endif NO_THREADING}
|
|
{$endif NO_THREADING}
|
|
SysUtils, Classes
|
|
SysUtils, Classes
|
|
@@ -5144,6 +5144,14 @@ end;
|
|
procedure TBuildEngine.SysDeleteTree(Const ADirectoryName: String);
|
|
procedure TBuildEngine.SysDeleteTree(Const ADirectoryName: String);
|
|
|
|
|
|
function IntRemoveTree(const ADirectoryName: String) : boolean;
|
|
function IntRemoveTree(const ADirectoryName: String) : boolean;
|
|
|
|
+{$ifdef WINDOWS}
|
|
|
|
+ { pulling in shellapi with all it dependent units and packages makes things too
|
|
|
|
+ complicated so just add the constants here }
|
|
|
|
+ const
|
|
|
|
+ FO_DELETE = $0003;
|
|
|
|
+ FOF_SILENT = $0004;
|
|
|
|
+ FOF_NOCONFIRMATION = $0010;
|
|
|
|
+{$endif WINDOWS}
|
|
var
|
|
var
|
|
i: integer;
|
|
i: integer;
|
|
{$ifdef WINDOWS}
|
|
{$ifdef WINDOWS}
|