Fechas de archivos

[[seoane]]

El problema es que la fecha de creacion esta en formato UTC que puede no coincidir, como en este caso, con la hora local. Para eso tenemos la funcion FileTimeToLocalFileTime que nos da la hora local.

Código Delphi [-]
var
  SearchRec: TSearchRec;
  SysTime: SYSTEMTIME;
  FileTime: TFILETIME;
begin
  if FindFirst(lFileName, faAnyFile, SearchRec) = 0 then
  begin
    FileTimeToLocalFileTime(SearchRec.FindData.ftCreationTime, FileTime);
    FileTimeToSystemTime(FileTime, SysTime);
    Result := DateTimeToStr(SystemTimeToDateTime(SysTime));
  end;
end;

[[Gunman]]

De acuerdo, muchas gracias!
Lepe, ya había mirado en la ayuda... El problema es que no me funcionaba con la función de FileDateToDateTime (o no la usaba correctamente).