【结贴】[请求]转换文件时间错误!**

rzport_jqf

转换文件时间:

function TMainForm.CovFileDate(Fd:_FileTime):TDateTime;
{ 转换文件的时间格式 }
var
Tct:_SystemTime;
Temp:_FileTime;
begin
  FileTimeToLocalFileTime(Fd,Temp);
  FileTimeToSystemTime(Temp,Tct);
  Result:=SystemTimeToDateTime(Tct);  
end;

Result:=SystemTimeToDateTime(Tct);   报错:

rzport_jqf

完整测试代码如下:

function TMainForm.CovFileDate(Fd:_FileTime):TDateTime;
{ 转换文件的时间格式 }
var
Tct:_SystemTime;
Temp:_FileTime;
begin
  FileTimeToLocalFileTime(Fd,Temp);
  FileTimeToSystemTime(Temp,Tct);
  Result:=SystemTimeToDateTime(Tct);
end;


procedure TMainForm.GetFileTime(const Tf:string);
{ 获取文件时间，Tf表示目标文件路径和名称 }
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));   { 返回文件的创建时间 }

  T2:=FormatDateTime(Model,CovFileDate(Tp.FindData.ftLastWriteTime));  { 返回文件的修改时间 }

  T3:=FormatDateTime(Model,Now);   { 返回文件的当前访问时间 }

  FindClose(Tp);
end;


procedure TMainForm.Button1Click(Sender: TObject);
var
   strFile1: String;
begin
    strFile1 := 'C:\1.txt';
  
  GetFileTime(strFile1);

end;

zfang

平台不支持指针操作。建议通过delphi做一个第三方控件导入。

rzport_jqf

通过平台取文档修改时间, 有没有其他办法?

shangxy

http://bbs.justep.com/forum.php? ... E%B8%C4%CA%B1%BC%E4

rzport_jqf

可以了. 谢谢!