paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 18:19:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

wince: fix compilation

Browse Source 
git-svn-id: trunk@28365 -
This commit is contained in:
paul 2010-11-20 09:23:14 +00:00
parent 4d7364bbe4
commit 45f69e44f9
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/winfileutil.inc
View File

@ -55,13 +55,16 @@ end;
function FileIsSymlink(const AFilename: string): boolean; function FileIsSymlink(const AFilename: string): boolean;
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
function FileIsSymlink(const AFilename: string): boolean; function FileIsSymlink(const AFilename: string): boolean;
{$ifndef wince}
const const
IO_REPARSE_TAG_MOUNT_POINT = $A0000003; IO_REPARSE_TAG_MOUNT_POINT = $A0000003;
IO_REPARSE_TAG_SYMLINK = $A000000C; IO_REPARSE_TAG_SYMLINK = $A000000C;
var var
Attr: Longint; Attr: Longint;
Rec: TSearchRec; Rec: TSearchRec;
{$endif}
begin begin
{$ifndef wince}
Attr := FileGetAttrUTF8(AFilename); Attr := FileGetAttrUTF8(AFilename);
if (Attr <> -1) and (Attr and FILE_ATTRIBUTE_REPARSE_POINT <> 0) then if (Attr <> -1) and (Attr and FILE_ATTRIBUTE_REPARSE_POINT <> 0) then
begin begin
@ -75,6 +78,7 @@ begin
Result := False; Result := False;
end end
else else
{$endif}
Result := False; Result := False;
end; end;