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

* fix win32 compilation by copying from trunk.

Browse Source
This commit is contained in:
marcoonthegit 2023-12-16 18:33:19 +01:00
parent e19509affb
commit 842074c680
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/win/sysutils.pp
View File

@ -697,13 +697,13 @@ end;
function FileGetDateTimeInfo(const FileName: string;
out DateTime: TDateTimeInfoRec; FollowLink: Boolean = True): Boolean;
var
Data: TWin32FindData;
FN: string;
Data: TWin32FindDataW;
FN: unicodestring;
begin
Result := False;
SetLastError(ERROR_SUCCESS);
FN:=FileName;
if Not GetFileAttributesEx(PAnsiChar(FileName), GetFileExInfoStandard, @Data) then
if Not GetFileAttributesExW(PWideChar(FileName), GetFileExInfoStandard, @Data) then
exit;
if ((Data.dwFileAttributes and faSymlink)=faSymlink) then
begin
@ -712,7 +712,7 @@ begin
FN:=FollowSymlink(FileName);
if FN='' then
exit;
if not GetFileAttributesEx(PAnsiChar(FN), GetFileExInfoStandard, @Data) then
if not GetFileAttributesExW(PWideChar(FN), GetFileExInfoStandard, @Data) then
exit;
end;
end;
@ -721,7 +721,6 @@ begin
end;
Function FileGetDate (Handle : THandle) : Int64;
Var
FT : TFileTime;