delphi 状态栏显示文件大小,修改时间,名称_百度知道

//获取文件时间 function getfiletime(sfilename: string; timetype: integer): tdatetime; var ffd:TWin32FindData; dft:DWord; lft,Time:TFileTime; h:THandle;

zhidao.baidu.com