本文整理自网络，侵删。
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 判断uefi与 legacy bios启动模式
更多相关阅读请进入《Delphi》频道 >>
