Как выяснить дату последнего доступа к файлу?

Previous  Top  Next

    
 

Данная процедура, позволяет узнать дату последнего доступа к файлу, код не проверял, но говорят работает. Для тех кто не знает что с этим делать намекну, можно использовать для создания триального реиода или просто отслеживания доступа к компьютеру.

 

 

Code:

procedure TForm1.Button1Click(Sender: TObject);

var

FileHandle: THandle;

LocalFileTime: TFileTime;

DosFileTime: DWORD;

LastAccessedTime: TDateTime;

FindData: TWin32FindData;

begin

FileHandle := FindFirstFile('AnyFile.FIL', FindData);

if FileHandle <> INVALID_HANDLE_VALUE then

begin

   Windows.FindClose(Handle);

   if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then

   begin

     FileTimeToLocalFileTime(FindData.ftLastWriteTime, LocalFileTime);

     FileTimeToDosDateTime(LocalFileTime,

       LongRec(DosFileTime).Hi, LongRec(DosFileTime).Lo);

     LastAccessedTime := FileDateToDateTime(DosFileTime);

     Label1.Caption := DateTimeToStr(LastAccessedTime);

   end;

end;

end;

 

 

 

©Drkb::03142

http://delphiworld.narod.ru/

DelphiWorld 6.0