怎么把系统文件找出来，并且用记事本列出他的修改时间。高手帮我,望给代码！

Question

用fileexist找出文件，如果文件多的话（且不在一个目录下的话）就麻烦一点了。
然后用
  i:=Fileage('Filename'); //获取执行E文件的日期、时间
  temp := formatDateTime('yyyy/mm/dd hh:mm:ss',FileDatetoDateTime(i));
然后TMEP就是文件修改的最后日期时间了。

Answer 1

然后逐一用TextBook记录下日期和时间就可以了。关于如何写字符串到TextBook中，可参考本论坛中相关帖子，说的很详细。

Answer 2

API函数：  SHGetDataFromIDList(
        FIShellFolder,
        ID,
        SHGDFIL_FINDDATA,
        @FileData,
        SizeOf(FileData)
      )
其中FileData结构中有LastWrite，LastRead时间，详细见delphi的
VirtualListView事例单元