paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-19 02:30:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

* make fpmkunit shellapi independent by adding the three necessary contants manually,

Browse Source 
this makes dependencies easier after r29284, resolves also #27164

git-svn-id: trunk@29285 -
This commit is contained in:
florian 2014-12-14 15:46:26 +00:00
parent 2d4511101d
commit 2eef483aaf
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/fpmkunit/src/fpmkunit.pp
View File

@ -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}