var
FileHandle : Integer;
DateTime:TDateTime
begin
FileHandle := FileOpen(FileName, fmOpenWrite or fmShareDenyNone);
DateTime:=FileDateToDateTime(FileGetDate(FileHandle));
Fileclose(FileHandle);
end;
FileHandle : Integer;
DateTime:TDateTime
begin
FileHandle := FileOpen(FileName, fmOpenWrite or fmShareDenyNone);
DateTime:=FileDateToDateTime(FileGetDate(FileHandle));
Fileclose(FileHandle);
end;
解决方案 »
- {^_^}抱着试试看的态度发贴,希望能够得到帮助
- 请教关于音调的问题~!
- 怎么样判断一个文件是否存在?
- 多界面响应消息问题
- 设置EditMask时,其中的9和0有什么区别,如'!9999/99/00;1;_'
- 在三层中,本地客户端怎样调用数据库中的存储过程?
- InstallShield Developer 7.0 East Language Pack 的问题!!!
- 100分征解:如何写一个dll,将一个大图按比例缩成小图?
- ★★★★★超级难题:如何返回函数名称?
- I/O erroe 103是什么错误?(源码)
- 急急急!!!这是为什么?
- 为什么在formclose中加入确定退出代码后,按确定没反应,按取消倒退出了?
var
iFileHandle : Integer;
UpdateTime:TDateTime;
begin
if OpenDialog1.Execute then
begin
iFileHandle := FileOpen(OpenDialog1.FileName, fmOpenRead);
UpDateTime:=FileDateToDateTime(FileGetDate(iFileHandle));
FileClose(iFileHandle);
end;
label1.caption:=datetimetostr(Updatetime);
end;
BOOL GetFileTime(
HANDLE hFile, // identifies the file
LPFILETIME lpCreationTime, // address of creation time
LPFILETIME lpLastAccessTime, // address of last access time
LPFILETIME lpLastWriteTime // address of last write time
);
The lpLastWriteTime variable include the value that you want.
BOOL GetFileTime(
HANDLE hFile, // identifies the file
LPFILETIME lpCreationTime, // address of creation time
LPFILETIME lpLastAccessTime, // address of last access time
LPFILETIME lpLastWriteTime // address of last write time
);
The lpLastWriteTime variable include the value that you want.
LPFILETIME lpCreationTime, // address of creation time
LPFILETIME lpLastAccessTime, // address of last access time
LPFILETIME lpLastWriteTime // address of last write time
);