Hola jafera.
Probá de este modo:
Código Delphi
[-]
function FileGetDateTime(Nombre: string): TDateTime;
var
Hnd: Integer;
begin
Hnd := FileOpen(Nombre, 0);
try
Result:= FileDateToDateTime(FileGetDate(Hnd));
finally
FileClose(Hnd);
end;
end;
Llamada de ejemplo:
Código Delphi
[-]
var
FechaDT: TDateTime;
FechaST: string;
begin
FechaDT:= FileGetDateTime('C:\Windows\System32\ChkDsk.exe');
FechaST:= DateToStr(Fecha); end;
Saludos.