로컬 파일의 날짜 가져오기

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

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

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

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

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

Result:=FormatDateTime(포맷, FileDateToDateTime(Dos날짜));
FileClose(파일핸들);
end;