查找目录下当天所修改的文件
解决方案 »
- 怎么把delphi的界面做的漂亮一点呢?
- 表的关联问题
- 就是注册表,右边有很多项,,值,,我如何全读出来、?
- Delphi6生成的OCX控件在MyEclipse中调用无法使用Ctrl+C/V/X/Z/Y等快捷键和方向键
- 关于TWebBrowser和Delhpi之间的通讯问题,在线等待,急
- 如何让Stringgrid中的单元格的内容显示换行?
- 大侠们,给分了~~~~~~~~~~~~帮我啊!!!
- 请问一个"与"操作的问题?
- 我在query控件中的beforePost事件中写代码,我怎样才能让他不进行post?
- 谁提供一下Delphi7的下载地址啊??
- 200分求助Dll调用问题
- 如何在结束进程A.EXE时把另一个B.EXE也结束掉?
var
vSearchRec: TSearchRec;
LocalFileTime: TFileTime;
I: Integer;
begin
if FindFirst(filename, faAnyFile, vSearchRec) = 0 then FileTimeToLocalFileTime(vSearchRec.FindData.ftLastWriteTime, LocalFileTime);
FileTimeToDosDateTime(LocalFileTime, LongRec(I).Hi, LongRec(I).Lo);
// Memo1.Lines.Values['修改时间'] := DateTimeToStr(FileDateToDateTime(I));
FindClose(vSearchRec);
result:=FileDateToDateTime(I);
end;取修改时间的函数