Ir al contenido


Foto

[TRUCO DELPHI] Ultima vez que se accedió al Archivo.


  • Por favor identifícate para responder
3 respuestas en este tema

#1 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 26 agosto 2016 - 08:27

[TRUCO DELPHI] Ultima vez que se acceso al Archivo.


delphi
  1. function GetFileLastAccessTime( sFileName : string ) : TDateTime;
  2. var
  3. ffd : TWin32FindData;
  4. dft : DWord;
  5. lft : TFileTime;
  6. h : THandle;
  7.  
  8. h := Windows.FindFirstFile(
  9. PChar(sFileName), ffd);
  10. if(INVALID_HANDLE_VALUE <> h)then
  11. begin
  12.  
  13. Windows.FindClose( h );
  14.  
  15. FileTimeToLocalFileTime(
  16.  
  17. FileTimeToDosDateTime(lft,
  18. LongRec(dft).Hi, LongRec(dft).Lo);
  19.  
  20. Result := FileDateToDateTime(dft);
  21. end;
  22. end;

Ejemplo de Uso:


delphi
  1. MessageDlg(
  2. 'c:\config.sys accesado por ultima vez en: ' +
  3. DateTimeToStr(
  4. GetFileLastAccessTime( 'c:\config.sys' ) ),
  5. mtInformation, [mbOk], 0 );

Saludos!


  • 2

#2 escafandra

escafandra

    Advanced Member

  • Administrador
  • 4.107 mensajes
  • LocationMadrid - España

Escrito 30 agosto 2016 - 05:09

Recuerdo que aquí ya discutimos sobre el tema.

 

 

Saludos.


  • 1

#3 Agustin Ortu

Agustin Ortu

    Advanced Member

  • Moderadores
  • PipPipPip
  • 831 mensajes
  • LocationArgentina

Escrito 30 agosto 2016 - 07:40

Ya que estamos con el reciente tema de los falsos amigos, recordar que no se dice "accesar" o alguna de sus "conjugaciones", sino, "acceder". En este caso seria "la ultima fecha en la que se accedio a un archivo"


  • 1

#4 escafandra

escafandra

    Advanced Member

  • Administrador
  • 4.107 mensajes
  • LocationMadrid - España

Escrito 31 agosto 2016 - 04:47

Agustin Ortu tienes toda la razón.

 

 

Saludos.


  • 0




IP.Board spam blocked by CleanTalk.