怎么样得到一个文件的属性信息

Question

给定一文件路径(包含文件名)，得到此文件的相关信息，包括大小、修改日期、创建时间等等
要求能将信息通过自己的方式显示，而并非直接调用标准属性界面

Answer 1

var
filedata: Twin32finDdata;
fhandle:Thandle;
begin
fhandle := findfirstfile(pchar('c:\1.tmp'), filedata);
    if not (fhandle = INVALID_HANDLE_VALUE) then
    begin
     ...
    filedata.ftLastWriteTime
    filedata.ftLastAccessTime
    .....
    end;