Hola Jafera.
Estaba seguro se podría lograr, solo había que saber donde buscar y es en
TWin32FindData...
Probá este código:
Código Delphi
[-]
uses Windows;
function GetFileDate(Nombre: string): TDateTime;
var
SR: TSearchRec;
LocalFileTime: TFileTime;
SystemTime: TSystemTime;
begin
if FindFirst(Nombre, $FF, SR) = 0 then
begin
FileTimeToLocalFileTime(SR.FindData.ftCreationTime, LocalFileTime);
FileTimeToSystemTime(LocalFileTime, SystemTime) ;
Result:= SystemTimeToDateTime(SystemTime);
end;
end;
Ejemplos de llamada:
Código Delphi
[-]
var
dt: TDateTime;
begin
dt:= GetFileDate(ParamStr(0));
ShowMessage(DateToStr(GetFileDate(ParamStr(0))));
end;
Saludos.