＋设为首页 ＋添加到收藏夹
我知道用GETFILETIME，但是不知具体的用法，能给个具体的例子吗？
用FileAge就可以了，再加上FileDateToDateTime转换一下：
ShowMessage(DateTimeToStr(FileDateToDateTime(FileAge(c:\config.sys))));
unit Unit_AccessFile;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
OpenDialog1: TOpenDialog;
Label2: TLabel;
Label3: TLabel;
procedure GetFileTime(Const Tf:String);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
function CovFileDate(FD: _FileTime): TDateTime;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
if Opendialog1.Execute then
GetFileTime(Opendialog1.FileName);
end;
//获得文件的时间格式
function TForm1.CovFileDate(FD: _FileTime): TDateTime;
Var
Tct: _SystemTime;
Temp: _FileTime;
begin
FileTimeToLocalFileTime(FD,Temp);
FileTimeToSystemTime(Temp,Tct);
CovFileDate := SystemTimeToDateTime(Tct);
end;
//有了上面的函数支持，就可以获得一个文件的时间信息了。
//获取文件时间，TF表示目标文件路径和名称
procedure TForm1.GetFileTime(const Tf: String);
Const
Model = yyyy/mm/dd,hh:mm:ss;//设定时间格式
Var
Tp: TSearchRec; //声明TP为一个查找记录
T1,T2,T3: String;
begin
FindFirst(Tf,faAnyFile,TP); //查找目标文件
T1:=FormatDateTime(model,COvFileDate(Tp.FindData.ftCreationTime));
//返回文件创建时间
Label1.Caption:=文件的创建时间是：+T1;
T2:=FormatDateTime(model,COvFileDate(Tp.FindData.ftLastWriteTime));
//返回文件修改时间
Label2.Caption:=文件的修改时间是：+T2;
T3:=FormatDateTime(model,Now);
//返回文件当前访问时间
Label3.Caption:=文件的当前访问是：+T3;
FindClose(Tp);
end;
end.
