Saber fecha acceso,modificado,creado

[rodno]

Hola,

Estoy haciendo un soft que me hace falta saber la fecha acceso,modificado,creado de un fichero, he tratado d hacerlo de esta forma, pero nada, no funciona:

Código:

int FileHandle;
  ftime ft;
  //AnsiString FileName=Str_DB+"/Gx_Data.MDB";
  AnsiString FileName="d:/Report.html";
  FileHandle = FileOpen(FileName,fmShareDenyNone);
  if (FileHandle < 0)
    ShowMessage("Error") ;
    else
    {
   getftime(FileHandle,&ft);
   AnsiString fecha=ft.ft_year+1980;
   ShowMessage(fecha) ;

Tambien asi, y tampoco nada:

Código:

   boolean Retvar;
   TFileTime   FTimeC, FTimeA, FTimeM;
   TFileTime  LTime;
   TSystemTime STime;
   TDateTime Accessed=0.0;
     int FileHandle;
   //AnsiString FileName=Str_DB+"/Gx_Data.MDB";
   AnsiString FileName="d:/Report.html";
   FileHandle = FileOpen(FileName,fmShareDenyNone);
   FileClose(FileHandle);
    if (FileHandle < 0)
    ShowMessage("Error") ;
    else
    {

 GetFileTime(&FileHandle,&FTimeC,&FTimeA,&FTimeM);
 FileTimeToLocalFileTime(&FTimeA,&LTime);

 if ( FileTimeToSystemTime(&LTime,&STime))
 {
 Accessed = EncodeDate(STime.wYear,STime.wMonth,STime.wDay);
 Accessed = Accessed + EncodeTime(STime.wHour,STime.wMinute,STime.wSecond,
  STime.wMilliseconds);
  }
  ShowMessage(FormatDateTime("dd/mm/yyyy hh:nn",Accessed)) ;
  }

Este ultimo me devuelve una fecha 30/12/1899, que por supuesto no es correcto

Saludos y Gracias de Antemano