function 파일날짜(const 포맷, 파일경로: String; 종류: String='생성'): String;
var
  파일핸들: THandle;
  생성, 최종접속, 최종수정, 변환: TFileTime;
  Dos날짜: Integer;


begin
  파일핸들:=FileOpen(파일경로, fmOpenRead or fmShareDenyNone);

 

  GetFileTime(파일핸들, @생성, @최종접속, @최종수정);

 

  if      Trim(종류)='생성'    then FileTimeToLocalFileTime(생성, 변환)
  else if Trim(종류)='최종접속' then FileTimeToLocalFileTime(최종접속, 변환)
  else if Trim(종류)='최종수정' then FileTimeToLocalFileTime(최종수정, 변환);

 

  FileTimeToDosDateTime(변환, LongRec(Dos날짜).Hi, LongRec(Dos날짜).Lo);


  Result:=FormatDateTime(포맷, FileDateToDateTime(Dos날짜));

  FileClose(파일핸들);
end;






Posted by bloodguy

댓글을 달아 주세요