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

* change define WINDOWS to MSWINDOWS so it does not apply to WinCE

Browse Source 
git-svn-id: trunk@29290 -
This commit is contained in:
florian 2014-12-14 18:06:29 +00:00
parent f1eb00a450
commit 45d3bc623c
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5144,28 +5144,28 @@ end;
procedure TBuildEngine.SysDeleteTree(Const ADirectoryName: String);
function IntRemoveTree(const ADirectoryName: String) : boolean;
{$ifdef WINDOWS}
{$ifdef MSWINDOWS}
{ 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}
{$endif MSWINDOWS}
var
i: integer;
{$ifdef WINDOWS}
{$ifdef MSWINDOWS}
SHFileOpStruct: TSHFileOpStruct;
DirBuf: array[0..MAX_PATH+1] of TCHAR;
{$else WINDOWS}
{$else MSWINDOWS}
searchRec: TSearchRec;
SearchResult: longint;
s: string;
{$endif WINDOWS}
{$endif MSWINDOWS}
begin
result := true;
{$ifdef WINDOWS}
{$ifdef MSWINDOWS}
try
FillChar(SHFileOpStruct, Sizeof(SHFileOpStruct), 0);
FillChar(DirBuf, Sizeof(DirBuf), 0);
@ -5180,7 +5180,7 @@ procedure TBuildEngine.SysDeleteTree(Const ADirectoryName: String);
except
Result := False;
end;
{$else WINDOWS}
{$else MSWINDOWS}
SearchResult := FindFirst(IncludeTrailingPathDelimiter(ADirectoryName)+AllFilesMask, faAnyFile+faSymLink, searchRec);
try
while SearchResult=0 do