function GetFileLastAccessTime(sFileName:string):TDateTime;
var
    ffd : TWin32FindData;
    dft : DWord;
    lft : TFileTime;
    h   : THandle;
begin
    h := Windows.FindFirstFile(PChar(sFileName), ffd);
    if(INVALID_HANDLE_VALUE <> h)then begin
        Windows.FindClose( h );
        FileTimeToLocalFileTime(ffd.ftLastAccessTime, lft );
        FileTimeToDosDateTime(lft,
        LongRec(dft).Hi, LongRec(dft).Lo);
        Result := FileDateToDateTime(dft);
    end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
    ShowMessage('Ostatni raz dostęp do pliku "C:\WINDOWS\winhelp.exe" uzyskano ' + DateTimeToStr(GetFileLastAccessTime('C:\WINDOWS\winhelp.exe' )));
end;

Aby dodać komentarz zaloguj się. Jeśli nie masz konta, załóż je sobie.
Tylko zarejestrowani użytkownicy mogą pisać komentarze.