procedure TForm1.Button1Click(Sender: TObject);<br>var<br> Handle: THandle;<br> FindData: TWin32FindData;<br> LocalFileTime: TFileTime;<br> SystemTime:TSystemTime;<br>begin<br> Handle := FindFirstFile(PChar('c:/temp/aa.text'), FindData);<br> if Handle <> INVALID_HANDLE_VALUE then<br> begin<br> Windows.FindClose(Handle);<br> FileTimeToLocalFileTime(FindData.ftLastWriteTime, LocalFileTime);<br> FileTimeToSystemTime(LocalFileTime,SystemTime);<br> ShowMessage(DateTimeToStr(SystemTimeToDateTime(SystemTime)));<br> end<br> else<br> Windows.FindClose(Handle);<br>end;