Pascal / dos / GetFTime

AddDisk, DiskFree, DiskSize, DosExitCode, DosVersion, DTToUnixDate, EnvCount, EnvStr, Exec, FExpand, FindClose, FindFirst, FindNext, FSearch, FSplit, GetCBreak, GetDate, GetEnv, GetFAttr, � GetFTime, GetIntVec, GetLongName, GetMsCount, GetShortName, GetTime, GetVerify, Intr, Keep, MSDos, PackTime, SetCBreak, SetDate, SetFAttr, SetFTime, SetIntVec, SetTime, SetVerify, SwapVectors, UnixDateToDt, UnpackTime, weekday,

Funcion: GetFTime()
Sintaxis:

procedure GetFTime(
 
  var f;
 
  var time: LongInt
 
);

Descripcion: obtiene la fecha de la ultima modificacion de un archivo
Ejemplo:

Program Example9;
uses Dos;
 
{ Program to demonstrate the GetFTime function. }
 
Function L0(w:word):string;
var
  s : string;
begin
  Str(w,s);
  if w<10 then
   L0:='0'+s
  else
   L0:=s;
end;
 
var
  f    : File;
  Time : Longint;
  DT   : DateTime;
begin
  if Paramcount>0 then
    Assign(f,ParamStr(1))
  else
    Assign(f,'ex9.pp' );
  Reset(f);
  GetFTime(f,Time);
  Close(f);
  UnPackTime(Time,DT);
  Write ('File ',ParamStr(1),' is last modified on ');
  Writeln (L0(DT.Month),'-',L0(DT.Day),'-',DT.Year,
           ' at ',L0(DT.Hour),':',L0(DT.Min));
end.

Librerias Pascal

Libreria crt - CRT - Pantalla y teclado del PASCAL de Turbo que maneja la unidad
Libreria dos - DOS - Interface Turbo Pascal MS-DOS
Libreria Graph - Unidad para manipular los graficos de la pantalla compatible con TP
Libreria Objects - Objetos basicos compatible con TP
Libreria math - Rutinas adicionales matematicas
Libreria Printer - Provee de acceso a la impresora
Libreria strings - Rutinas para el manejo de cadenas
Libreria BaseUnix - Funcionalidad Basica de Linux
Libreria System - Manejo de Archivos - Funciones para la manipulacion de archivos en Pascal