如何取得文件的建立时间

Question

不是修改时间。谢谢。

Answer 1

BOOL GetFileTime(    HANDLE hFile, // identifies the file 
    LPFILETIME lpCreationTime, // address of creation time 
    LPFILETIME lpLastAccessTime, // address of last access time  
    LPFILETIME lpLastWriteTime  // address of last write time 
   );
 GetFileTime 可以得到 “访问时间”和“修改时间”，
但是它们是格林威治标准时间的，要FileTimeToLocalFileTime转换为本地文件时间
然后用FileTimeToSystemTime得到时间

Answer 2

function CovFileDate(Fd:_FileTime):TDateTime;
var
  Tct:_SystemTime;
  Temp:_FileTime;
begin
  FileTimeToLocalFileTime(Fd,Temp);
  FileTimeToSystemTime(Temp,Tct);
  CovFileDate:=SystemTimeToDateTime(Tct);
end;function GetFileTime(const Tf:string):TDateTime;
{ 获取文件时间，Tf表示目标文件路径和名称 }
var
  Tp:TSearchRec; { 申明Tp为一个查找记录 }
begin
  FindFirst(Tf,faAnyFile,Tp); { 查找目标文件 }
  Result:=CovFileDate(Tp.FindData.ftCreationTime);
  { 返回文件的创建时间 }
  FindClose(Tp);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption:=DateTimeToStr(GetFileTime(Edit1.Text));
end;

Answer 3

谢谢二位.特别感谢DWGZ,马上结账.