[TRUCO DELPHI] Ultima vez que se acceso al Archivo.
delphi
function GetFileLastAccessTime( sFileName : string ) : TDateTime; var ffd : TWin32FindData; dft : DWord; lft : TFileTime; h : THandle; h := Windows.FindFirstFile( PChar(sFileName), ffd); if(INVALID_HANDLE_VALUE <> h)then begin Windows.FindClose( h ); FileTimeToLocalFileTime( FileTimeToDosDateTime(lft, LongRec(dft).Hi, LongRec(dft).Lo); Result := FileDateToDateTime(dft); end; end;
Ejemplo de Uso:
delphi
MessageDlg( 'c:\config.sys accesado por ultima vez en: ' + DateTimeToStr( GetFileLastAccessTime( 'c:\config.sys' ) ), mtInformation, [mbOk], 0 );
Saludos!