Explorar o código

* Typecast correct filename in FileGetDateTimeInfo. Fixes issue #41534

Michaël Van Canneyt hai 1 semana
pai
achega
81a55adffb
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  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