如何取得文件的建立时间

[fffddd]

不是修改时间。谢谢。

[34535345345345345345]

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得到时间

[DWGZ]

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;

[fffddd]

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