Browse Source

* Typecast correct filename in FileGetDateTimeInfo. Fixes issue #41534

Michaël Van Canneyt 1 week ago
parent
commit
81a55adffb
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/win/sysutils.pp

+ 1 - 1
rtl/win/sysutils.pp

@@ -701,7 +701,7 @@ begin
   Result := False;
   SetLastError(ERROR_SUCCESS);
   FN:=FileName;
-  if Not GetFileAttributesExW(PWideChar(FileName), GetFileExInfoStandard, @Data) then
+  if Not GetFileAttributesExW(PWideChar(FN), GetFileExInfoStandard, @Data) then
     exit;
   if ((Data.dwFileAttributes and faSymlink)=faSymlink) then
     begin