안녕 하세요?

BacTeria 박종민 입니다.

오늘의 팁은 지정한 파일의 마지막 Access 시간을 얻는 함수 입니다.

어떤분이 Q/A 란에도 질문 올렸던것 같은데... 쩝!!

그럼 이만...

오늘도 바쁘게... 휘리릭~

function LastAccess(const filename : String) : String;
var
  FileHandle : THandle;
  LocalFileTime : TFileTime;
  DosFileTime : DWORD;
  LastAccessedTime : TDateTime;
  FindData : TWin32FindData;
begin
  Result := '';
  FileHandle := FindFirstFile(pChar(filename), FindData);

  if FileHandle <> INVALID_HANDLE_VALUE then
  begin
    Windows.FindClose(FileHandle);

    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);

      Result := DateTimeToStr(LastAccessedTime);
    end;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := LastAccess('project1.exe');
end;