本文整理自网络，侵删。
var
filehandle: Cardinal;
ofstruct: _OFSTRUCT;
fileinformation: _BY_HANDLE_FILE_INFORMATION;
tempfiletime: FILETIME;
systemtime: _SYSTEMTIME;
begin
if OpenDialog1.Execute then
begin
filehandle:=OpenFile(PChar(OpenDialog1.FileName),ofstruct,OF_READ);
if filehandle<>HFILE_ERROR then
begin
if GetFileInformationByHandle(filehandle,fileinformation) then
begin
FileTimeToLocalFileTime(fileinformation.ftCreationTime,tempfiletime);
FileTimeToSystemTime(tempfiletime,systemtime);
showmessage('文件创建时间：'+inttostr(systemtime.wYear)+'年'
+inttostr(systemtime.wMonth)+'月'
+inttostr(systemtime.wDay)+'日, '
+inttostr(systemtime.wHour)+':'
+inttostr(systemtime.wMinute)+':'
+inttostr(systemtime.wSecond));
end
else
showmessage('GetFileInformationByHandle Failed!');//GetLastError shows details
CloseHandle(filehandle);
end
else
showmessage('OpenFile Failed!');//may use GetLastError to show details
end;
end;
[说明]
程序原理：
1.用OpenFile打开文件，获得文件句柄；
2.用GetFileInformationByHandle通过已知的文件句柄获取文件信息，保存到文件信息结构中；
3.用FileTimeToLocalFileTime将格林威治FILETIME转换成当地的FILETIME；
4.用FileTimeToSystemTime将FILETIME类型的时间转换成系统时间，显示该时间；
5.用CloseHandle关闭打开的文件句柄。
注意的是，
GetFileInformationByHandle函数所获得的文件信息中三种时间均是指格林威治标准时间，对应的
系统时间应该加上中国所在的时区(+8)后得到的时间。这里采用的是直接转换的方式，没有转换成
Large_Integer类型再去计算。更简单了。
[设置时间程序片段]
var
SystemTime: _SYSTEMTIME;
CreateTime, LastAccessTime, LastWriteTime: FileTime;
FileHandle: Cardinal;
ofstruct: _OFSTRUCT;
begin
with SystemTime do
try
wYear:=StrToInt(Edit1.Text);
wMonth:=StrToInt(Edit2.Text);
wDay:=StrToInt(Edit3.Text);
wHour:=StrToInt(Edit4.Text);
wMinute:=StrToInt(Edit5.Text);
wSecond:=StrToInt(Edit6.Text);
except
end;
SystemTimeToFileTime(SystemTime,CreateTime);
LocalFileTimeToFileTime(CreateTime,CreateTime);
LastAccessTime:=CreateTime;//见说明
LastWriteTime:=CreateTime; //见说明
if OpenDialog1.Execute then
begin
FileHandle:=OpenFile(PChar(OpenDialog1.FileName),ofstruct,OF_READWRITE);
if FileHandle<>HFILE_ERROR then
try
SetFileTime(FileHandle,
@CreateTime,
@LastAccessTime,
@LastWriteTime);
finally
CloseHandle(FileHandle);
end;
end;
end;
{说明]
这里设置文件的创建时间时，将LastAccessTime和LastWriteTime:=CreateTime也设成
了跟CreateTime一样的时间，当然可以类似另设。注意文件时间有LocalFileTime与FileTime
的区别，程序中有两句话需要注意：
SystemTimeToFileTime(SystemTime,CreateTime); //将系统时间转换为文件时间
LocalFileTimeToFileTime(CreateTime,CreateTime);//将文件时间看成为当地时间并转换为文件时间 相关阅读 >>
Delphi 通过 arp 协议获取局域网内指定 ip 地址的机器的 mac 地址
delphDelphi chromium embedded 清除指定链接浏览器缓存、cookies
Delphi filesearch 获取指定文件夹下所有文件包括隐藏文件
更多相关阅读请进入《Delphi》频道 >>
