Question

delphi 求一个程序，获取文件的创建时间（不是修改时间），然后根据它们的创建时间删除某个时间之前的文件

delphi新手求贴！

Answer 1

function TForm1.GetFileDateTime(const FileName: string): TDateTime;
var
Handle: THandle;
FindData: TWin32FindData;
LocalFileTime: TFileTime;
DosDateTime: Integer;
begin
Handle := FindFirstFile(PChar(FileName), FindData);
if Handle <> INVALID_HANDLE_VALUE then
begin
Windows.FindClose(Handle);
if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then begin
FileTimeToLocalFileTime(FindData.ftCreationTime, LocalFileTime);
if FileTimeToDosDateTime(LocalFileTime, LongRec(DosDateTime).Hi,
LongRec(DosDateTime).Lo) then
begin
Result := FileDateToDateTime(DosDateTime);
Exit;
end;
end;
end;
Result := -1;
end;

Answer 2

非常陌生的名字。也许很多人都要问，文件名就文件名塞，还什么扩展名哟？然而在我们实际应用中就经常会遇到一些这样的现象：电脑中一些莫名其妙的文件总是打不开，及时打开了怎么图标总是和别人计算机里面的不一样等等。废话少说了，言归正传。
文件扩展名 是操作系统用来标志文件格式的一种机制。通常来说，一个扩展名是跟在文件名后面的，由一个分隔符分隔。在一个像“readme.txt”的文件名中，readme是文件名，txt为扩展名，表示这个文件是一个纯文本文件。
也许你们会问：我打开电脑怎么没有看见文件名后面有一个原点和原点后面的东东呢？不要着急，跟我来哟？首先打开一个文件夹，单击菜单栏→工具→文件夹选项
去掉"隐藏已知文件的扩展名"前面的勾.点击确定，这下你看看你电脑里面保存的所有文件，是否在原来文件名后面都多了原点和一些字母符号呢？这些都是扩展名。如果想不显示扩展名，就执行刚才上面的步骤，把刚才去掉的那个√打上，点击确定就OK了，大家可以多多练习这个哦。
不过大家千万要注意，在我们取消√以后，文件名及其扩展名就显示出来了，但是当我们需要重命名的时候，文件扩展名是不能更改的哟，否则可能就打不开该文件了哟，或者该文件的图标就变样了。所以，我们在重命名带扩展名的文件时，扩展名是不能丢的。
我们经常接触的扩展名有doc(Word文档)、wps(Wps文档)、xls(Excel电子表格)、ppt(Powerpoint演示文稿)、jpg(图片)、txt(纯文本)、rar(Winrar压缩文件)、htm(网页文件)、html(网页文件)等等。
这下大家是否清楚了吗？如果大家还迷糊儿的话，我再来费了哈。我们可能都使用过Word编辑过文档的，在我们辛辛苦苦打了一篇文章或总结计划之后，我们接下来的事情就是保存，在我们点击保存的时候，就会弹出如下对话框，在保存类型那个地方，我们时候会看见word文档这一标志呢？也许我们绝大多数人不回去在意这个问题（否则我们大家都是发明家了哟），因为我们的绝大多数老师都没有教哟，所以我们只取一个文件名就OK了。就是我们没有在意的那个地方就是文件扩展名。