Windows: SysUtils.FileGetDateTimeInfo returns false on existing files.
<!-- See available text formatting: https://gitlab.com/help/user/markdown.md -->
## Summary
SysUtils.FileGetDateTimeInfo returns false on existing files.
(Tested on Windows only)
Issue noticed by forum user Big Hawk in [this thread](https://forum.lazarus.freepascal.org/index.php/topic,72962.0.html).
## System Information
- Operating system: Win11 Home
- Processor architecture: x86_64 (32-bit fpc)
- Compiler version: 3.3.1-7446-ga755f38d2b
- Device: Computer
## Steps to reproduce
Call `FileGetDateTimeInfo` on an existing file.
## Example Project
```pascal
program test;
{$mode objfpc}
{$h+}
uses
Windows, SysUtils;
var
B: Boolean;
DTinfo: TDateTimeInfoRec;
const
Fn = 'foo.bar'; //make sure this file exists
begin
writeln('FileExists(''',Fn,''')=',FileExists(Fn));
B := FileGetDateTimeInfo(Fn, DTinfo, False);
writeln('FileGetDateTimeInfo(''',Fn,''')=',B);
end.
```
## What is the current bug behavior?
The example program outputs:
```
FileExists('foo.bar')=TRUE
FileGetDateTimeInfo('foo.bar')=FALSE
```
## What is the expected (correct) behavior?
It should output:
```
FileExists('foo.bar')=TRUE
FileGetDateTimeInfo('foo.bar')=TRUE
```
## Possible fixes
```pascal
function FileGetDateTimeInfo(const FileName: string;
out DateTime: TDateTimeInfoRec; FollowLink: Boolean = True): Boolean;
var
Data: TWin32FindDataW;
FN: unicodestring;
begin
Result := False;
SetLastError(ERROR_SUCCESS);
FN:=FileName;
if Not GetFileAttributesExW(PWideChar(FileName), GetFileExInfoStandard, @Data) then <<FileName is AnsiChar
exit;
[snip]
```
Possible patch attached.
[FileGetDateTimeInfo.diff](/uploads/20f8ac0a221622cf61d71038feae471e/FileGetDateTimeInfo.diff)
issue