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;
'Delphi' 카테고리의 다른 글
확장자에 연결된 프로그램이 있는지 알아보는 함수 (0) | 2009.04.18 |
---|---|
[Delphi] 시작메뉴의 바로가기 파일을 뒤져서 원하는 바로가기 파일의 실행파일 변경하기 (0) | 2009.04.18 |
[Delphi] 윈도우 메세지를 받아먹는 3가지 방법 (6) | 2009.04.18 |
[Delphi] 한글 초성+중성+종성 조합하여 모든 글자 출력 (0) | 2009.04.18 |
Bitmap 의 구조 (0) | 2009.04.18 |