1:
2:
3:
4:
5:
6:
7:
8:
9:

function GetFileDateTime(const FileName: TFileName): TDateTime;
var
  FStruct: TOFSTRUCT;
  wndFile: Integer;
begin
  wndFile := OpenFile(PChar(FileName), FStruct, OF_SHARE_DENY_NONE);
  Result  := FileDateToDateTime(FileGetDate(wndFile));
  CloseHandle(wndFile);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

function GetCreationFileDateTime(const FileName: TFileName): TDateTime;
var
  hFile: THandle;
  CreationTime: TFileTime;
  SystemTime, LocalTime: TSystemTime;
begin
  hFile := CreateFile(PChar(FileName), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);
  try
    if not GetFileTime(hFile, @CreationTime, nil, nil) or
      not FileTimeToSystemTime(CreationTime, SystemTime) or
      not SystemTimeToTzSpecificLocalTime(nil, SystemTime, LocalTime) then
      RaiseLastOSError;
    result := SystemTimeToDateTime(LocalTime);
  finally
    CloseHandle(hFile);
  end;
end;