Fechas de archivos
 

Tengo una función que tiene el siguiente código:

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

Funciona casi perfectamente, y digo casi porqué me devuelve la fecha dos horas antes de la original, me explico? Es decir, si creo un archivo a las 21:00:32, la función me devuelve 19:00:32. Y claro está si el archivo está creado antes de las 02:00:00 la función me devuelve al día anterior.
Qué sucede? Cómo lo solucino, le sumo dos horas y andando?

Cuando todo falla, mira la ayuda ;)

Ayuda de TSearchRec type
Time contains the time stamp of the file. It can be converted to a TDateTime value using FileDateToDateTime.

Saludos

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;

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).