Delphi에서 파일의 생성/마지막 수정 날짜를 얻는 방법?

Question

이러한 속성을 정수 값으로 가져 오려고합니다.

Answer 1

Delphians는 FindFirst 방식 (SearchRec 구조 중 일부가 있음)을 좋아하지만 GetFileAttributesEx라는 Win32 API 함수를 제안합니다.

Answer 2

GetFileInformationByHandle winapi 함수를 호출 할 수 있습니다. Aparently JCL 당신은 또한

Answer 3

은 SysUtils를에서

function FileAge(const FileName: string; out FileDateTime: TDateTime): Boolean; 

시도 사용할 수있는 GetFileLastWrite 기능이 있습니다. 이 일을해야

function DSiFileTimeToDateTime(fileTime: TFileTime; var dateTime: TDateTime): boolean; 
var 
    sysTime: TSystemTime; 
begin 
    Result := FileTimeToSystemTime(fileTime, sysTime); 
    if Result then 
    dateTime := SystemTimeToDateTime(sysTime); 
end; { DSiFileTimeToDateTime } 

function DSiGetFileTimes(const fileName: string; var creationTime, lastAccessTime, 
    lastModificationTime: TDateTime): boolean; 
var 
    fileHandle   : cardinal; 
    fsCreationTime  : TFileTime; 
    fsLastAccessTime  : TFileTime; 
    fsLastModificationTime: TFileTime; 
begin 
    Result := false; 
    fileHandle := CreateFile(PChar(fileName), GENERIC_READ, FILE_SHARE_READ, nil, 
    OPEN_EXISTING, 0, 0); 
    if fileHandle <> INVALID_HANDLE_VALUE then try 
    Result := 
     GetFileTime(fileHandle, @fsCreationTime, @fsLastAccessTime, 
     @fsLastModificationTime) and 
     DSiFileTimeToDateTime(fsCreationTime, creationTime) and 
     DSiFileTimeToDateTime(fsLastAccessTime, lastAccessTime) and 
     DSiFileTimeToDateTime(fsLastModificationTime, lastModificationTime); 
    finally 
    CloseHandle(fileHandle); 
    end; 
end; { DSiGetFileTimes } 

Answer 4

DSiWin32 프리웨어 라이브러리에서

.

function GetFileModDate(filename : string) : integer; 
var 
    F : TSearchRec; 
begin 
    FindFirst(filename,faAnyFile,F); 
    Result := F.Time; 
    //if you wanted a TDateTime, change the return type and use this line: 
    //Result := FileDateToDatetime(F.Time); 
    FindClose(F); 
end; 

Answer 5

, 그리고 네이티브 델파이 코드 :

Answer 6

function GetFileModDate(filename : string) : TDateTime; 
var 
    F : TSearchRec; 
begin 
    FindFirst(filename,faAnyFile,F); 
    Result := F.TimeStamp; 
    //if you really wanted an Int, change the return type and use this line: 
    //Result := F.Time; 
    FindClose(F); 
end; 

F.Time은 이후 도움말 파일, 사용되지 않는 한 사용 F.TimeStamp는 말한다.
최신 버전의 Delphi로 인해 업데이트하는 것

Answer 7

System.IOUtils에는 파일 보관 기간을 가져 오는 몇 가지 기능이있는 TFile 레코드가 있습니다. GetCreationTime, GetLastAccessTime, GetLastWriteTime