// ================================================================
// Return the three dates (Created,Modified,Accessed)
// of a given filename. Returns FALSE if file cannot
// be found or permissions denied. Results are returned
// in TdateTime VAR parameters
// ================================================================
// ================================================================
// Devuelve las tres fechas (Creación, modificación y último acceso)
// de un fichero que se pasa como parámetro.
// Devuelve FALSO si el fichero no se ha podido acceder, sea porque
// no existe o porque no se tienen permisos. Las fechas se devuelven
// en tres parámetros de ipo DateTime
// ================================================================
function GetFileTimes(FileName : string; var Created : TDateTime;
	var Modified : TDateTime; var Accessed : TDateTime) : boolean;
var
 FileHandle : integer;
 Retvar : boolean;
 FTimeC,FTimeA,FTimeM : TFileTime;
 LTime : TFileTime;
 STime : TSystemTime;
begin
 // Abrir el fichero
 FileHandle := FileOpen(FileName,fmShareDenyNone);
 // inicializar
 Created := 0.0;
 Modified := 0.0;
 Accessed := 0.0;
 // Ha tenido acceso al fichero?
 if FileHandle < 0 then
 RetVar := false
 else begin

 end;

 Result := RetVar;
end;

var
 CDate,MDate,ADate : TDateTime;
begin
 // Correcto?
 if GetFileTimes('c:\autoexec.bat', CDate, MDate, ADate) then begin
 Label1.Caption := FormatDateTime('dd/mm/yyyy hh:nn',CDate);
	Label2.Caption := FormatDateTime('dd/mm/yyyy hh:nn',MDate);
	Label3.Caption := FormatDateTime('dd/mm/yyyy hh:nn',ADate);
 end;
end;