getfiletime()能不能做到呀?有没有人试过?没有人知道吗,高分呀??
解决方案 »
- 这是一个易名中国网站的idhttp 表单提交,一直提示对不起,您提交的表单来源错误,请重新登录!
- 求高手帮忙,能否点一个按钮则自动联接网络,而不用重新打开系统.
- 如何在image控件中画的空心变得圆滑?
- 如何得到客户端ip地址?
- 帮忙呀!动态创建ADOConnection的问题!(在线等)
- 请教这个功能的方法是如何实现的
- application.createform(Tform1,form1) 如果 TForm1是一個表中的某字段的內容,又怎樣搞呀?(在線等待中......)
- 请问有没有天津塘沽的朋友???????
- 请问一个网络访问远程数据库的问题
- 給您送分啦!!!
- 敬请关注!在线等待!
- 如何把一个*.txt中的数据导入数据库中,不好意思,问题简单,但我不会
var
ffd:TWin32FindData;
dft:DWord;
lft:TFileTime;
h:THandle;
begin
h:=FindFirstFile(PChar(sFileName),ffd);
if h<>INVALID_HANDLE_VALUE then
begin
case uFlag of
FILE_CREATE_TIME:FileTimeToLocalFileTime(ffd.ftCreationTime,lft);
FILE_MODIFY_TIME:FileTimeToLocalFileTime(ffd.ftLastWriteTime,lft);
FILE_ACCESS_TIME:FileTimeToLocalFileTime(ffd.ftLastAccessTime,lft);
else
FileTimeToLocalFileTime(ffd.ftLastWriteTime,lft);
end;
FileTimeToDosDateTime(lft,LongRec(dft).Hi,LongRec(dft).Lo);
Result:=FileDateToDateTime(dft);
windows.FindClose(h);
end
else
result:=0;
end;