本文整理自网络，侵删。
procedure TForm1.Button1Click(Sender: TObject);
var
FileOp : TOFStruct ;
FHandle : THandle ;
FInfo : TByHandleFileInformation ;
dtCreate : TSystemTime;
Temp:_FileTime;
begin
memo1.clear;
setlasterror(20);
FHandle:= openfile(pchar(edit1.text),FileOp ,OF_READ);
GetFileInformationByHandle(FHandle,FInfo);
memo1.Lines.Add('File Attributes : '+inttostr(FInfo.dwFileAttributes));
FileTimeToLocalFileTime(FInfo.ftCreationTime,Temp);
FileTimeToSystemTime(Temp,dtCreate);
memo1.Lines.Add('File Create Time : '
+inttostr(dtCreate.wYear)+'-'
+inttostr(dtCreate.wMonth)+'-'
+inttostr(dtCreate.wDay)+' '
+inttostr(dtCreate.wHour)+':'
+inttostr(dtCreate.wMinute)+':'
+inttostr(dtCreate.wSecond) );
FileTimeToLocalFileTime(FInfo.ftLastAccessTime,Temp);
FileTimeToSystemTime(Temp,dtCreate);
memo1.Lines.Add('File Last Access Time : '
+inttostr(dtCreate.wYear)+'-'
+inttostr(dtCreate.wMonth)+'-'
+inttostr(dtCreate.wDay)+' '
+inttostr(dtCreate.wHour)+':'
+inttostr(dtCreate.wMinute)+':'
+inttostr(dtCreate.wSecond) );
FileTimeToLocalFileTime(FInfo.ftLastWriteTime,Temp);
FileTimeToSystemTime(Temp,dtCreate);
memo1.Lines.Add('File Last Write Time : '
+inttostr(dtCreate.wYear)+'-'
+inttostr(dtCreate.wMonth)+'-'
+inttostr(dtCreate.wDay)+' '
+inttostr(dtCreate.wHour)+':'
+inttostr(dtCreate.wMinute)+':'
+inttostr(dtCreate.wSecond) );
memo1.Lines.Add('File Path and Name : '+FileOp.szPathName);
_lclose(FHandle);
end;
相关阅读 >>
Delphi 消息实现窗口最小化，最大化，关闭(Delphi)
Delphi webbrowser载入自定义html内容并显示
Delphi xe 共享一个之前封装的多进程共享内存的memorystream
Delphi里的compile和build都能产生可执行文件，有什么区别啊？
更多相关阅读请进入《Delphi》频道 >>
