TechTips

Função pequena e útil, descobre quando aquele arquivo foi acessado pela última vez.

function FileAccessTime(FileName: String): TDateTime;
var
  FileHandle: Integer;
  LTime,
  FTimeA: TFileTime;
  STime: TSystemTime;
begin
  FileHandle := FileOpen(FileName,fmShareDenyNone);

  if FileHandle >= 0 then
  begin
    // Accessado
    GetFileTime(FileHandle,nil, @FTimeA, nil);
    FileClose(FileHandle);
    FileTimeToLocalFileTime(FTimeA,LTime);

    if FileTimeToSystemTime(LTime,STime) then
    begin
      Result := EncodeDate(STime.wYear,STime.wMonth,STime.wDay);
      Result := Result + EncodeTime(STime.wHour,STime.wMinute,STime.wSecond,STime.wMilliSeconds);
    end;
  end;
end;

procedure TForm1.Button1Click(Self);

begin

  ShowMessage(DateTimeToStr(FileAccessTime(’c:\windows\areia.bmp’));

end;

Se você é novo por aqui, não deixe de assinar o feed RSS ou notificações por email. Não perca novos artigos!