PB 调用API获取文件的创建时间、访问时间、修改时间

PB中需要读取文件的修改时间，但目前版本不提供相关函数，可以使用API达到此目的，可以将API封装起来，供调用。

定义结构

type FileTime from structure
 long  dwLowDateTime
 long  dwHighDateTime
end type

type OFSTRUCT from structure
 unsignedinteger  cBytes
 unsignedinteger  fFixedDisk
 integer  nErrCode
 integer  Reserved1
 integer  Reserved2
 integer  szPathName[128]
end type

type systemtime from structure
 integer  wYear
 integer  wMonth
 integer  wDayOfWeek
 integer  wDay
 integer  wHour
 integer  wMinute
 integer  wSecond
 integer  wMilliseconds
end type

 

定义API函数

FUNCTION ulong GetFileTime(ulong hFile,ref FILETIME lpCreationTime,ref FILETIME lpLastAccessTime,ref FILETIME lpLastWriteTime) LIBRARY "kernel32.dll"
FUNCTION ulong OpenFile(ref string lpFileName,ref OFSTRUCT lpReOpenBuff,ulong wStyle) LIBRARY "kernel32.dll"
FUNCTION ulong Fil