如何获得指定的文件创建的时间?(50分)

  • 主题发起人 主题发起人 SamHunt
  • 开始时间 开始时间
S

SamHunt

Unregistered / Unconfirmed
GUEST, unregistred user!
如何获得指定的文件创建的时间?<br>用getfiletime()?<br>但如何获得handle?
 
如何获得文件的创建时间?<br>很难吗?<br>
 
似乎很简单!在文件的某个固定处存放这个信息。
 
procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp; Handle: THandle;<br>&nbsp; FindData: TWin32FindData;<br>&nbsp; LocalFileTime: TFileTime;<br>&nbsp; SystemTime:TSystemTime;<br>begin<br>&nbsp; Handle := FindFirstFile(PChar('c:/temp/aa.text'), FindData);<br>&nbsp; if Handle &lt;&gt; INVALID_HANDLE_VALUE then<br>&nbsp; begin<br>&nbsp; &nbsp; Windows.FindClose(Handle);<br>&nbsp; &nbsp; FileTimeToLocalFileTime(FindData.ftLastWriteTime, LocalFileTime);<br>&nbsp; &nbsp; FileTimeToSystemTime(LocalFileTime,SystemTime);<br>&nbsp; &nbsp; ShowMessage(DateTimeToStr(SystemTimeToDateTime(SystemTime)));<br>&nbsp; end<br>&nbsp; else<br>&nbsp; Windows.FindClose(Handle);<br>end;
 
人家问的是文件的创建时间!不是最后一次的存取时间!<br>FindData.ftLastWriteTime应该改成ftCreationTime就可以了。<br>
 
多人接受答案了。
 
后退
顶部