Delphi实现文件属性获取：日期、大小与创建时间

在Delphi编程中，获取文件的修改时间、创建时间和文件大小是常见的需求，尤其是在处理数据库查询结果或用户交互时。本资源提供了一个名为`GetFileDateTime`的函数，用于获取指定文件的日期和时间信息。函数首先通过`FindFirstFile`系统调用来查找文件，并检查是否为普通文件（非目录），避免了对目录的处理。 `GetFileDateTime`函数的核心部分如下： 1. 使用`FindFirstFile`打开指定文件，如果返回的句柄不为`INVALID_HANDLE_VALUE`，则继续执行。 2. 使用`FindClose`关闭句柄，确保资源释放。 3. 如果找到的是一个普通文件，将`FindData`结构中的`ftCreationTime`转换为`LocalFileTime`结构，进一步将其转换为DOS日期时间格式（`DosDateTime`）。 4. 将`DosDateTime`转换为`TDateTime`类型，设置到`Result`变量中，并在所有操作完成后通过`Exit`语句结束函数。 5. 如果不是普通文件或者找不到文件，函数返回-1。 在`TForm1.Button8Click`事件处理程序中，示例代码展示了如何结合使用`fileexists`、`fileage`、`filesizebyname`以及`GetFileDateTime`函数来获取更丰富的文件信息。首先，它检查文件是否存在或ADO查询结果是否有数据。然后，它计算文件的年龄（从创建时间到当前时间的差值），获取文件大小（以字节为单位），并调用`GetFileDateTime`函数获取最后修改时间。这些信息被拼接成字符串，并通过`ShowMessage`显示出来。 通过这个例子，开发者可以灵活地集成文件属性获取到自己的应用程序中，以满足各种文件操作的需求。在Delphi中，文件属性管理是文件操作模块的重要组成部分，了解并熟练运用这些方法对于编写高效、准确的文件操作代码至关重要。