Delphi 獲取文件日期的代碼

Delphi系統設置的一個例子，獲取指定文件的屬性信息，你可以通過導出的EXE程序，選擇要查看信息的文件，打開後可查看到文件的創建時間、修改時間、最後訪問時間，初級學者實例：

vIEw source print? 01 unit MainUnit; 02 interface 03 uses 04   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 05   StdCtrls; 06 type 07   TMainForm = class(TForm) 08     Label1: TLabel; 09     Edit1: TEdit; 10     Button1: TButton; 11     Label2: TLabel; 12     Edit2: TEdit; 13     Button2: TButton; 14     Label3: TLabel; 15     Edit3: TEdit; 16     Label4: TLabel; 17     Edit4: TEdit; 18     OpenDialog1: TOpenDialog; 19     procedure Button1Click(Sender: TObject); 20     procedure Button2Click(Sender: TObject); 21   private 22     { Private declarations } 23   public 24     { Public declarations } 25   end; 26 var 27   MainForm: TMainForm; 28 implementation 29 {$R *.DFM} 30 function GetFilesTime(sFilename: String; Timetype: Integer): TDateTime; 31 var 32   ffd: TWin32FindData; 33   dft: DWord; 34   lft, Time: TFileTime; 35   sHandle: THandle; 36 begin 37   sHandle:= Windows.FindFirstFile(PChar(sFileName), ffd); 38   if (sHandle <>INVALID_HANDLE_VALUE) then 39     begin 40       case Timetype of 41         0: Time:= ffd.ftCreationTime; 42         1: Time:= ffd.ftLastWriteTime; 43         2: Time:= ffd.ftLastAccessTime; 44       end; 45     Windows.FindClose(sHandle); 46     FileTimeToLocalFileTime(Time, lft); 47     FileTimeToDOSDateTime(lft, LongRec(dft).HI, LongRec(dft).Lo); 48     Result:= FileDateToDateTime(dft); 49   end else Result:= 0; 50 end; 51 procedure TMainForm.Button1Click(Sender: TObject); 52 begin 53   if OpenDialog1.Execute then 54     Edit1.Text:= OpenDialog1.FileName; 55 end; 56 procedure TMainForm.Button2Click(Sender: TObject); 57 begin 58   if Edit1.Text<> '' then 59     begin 60       Edit2.Text:= DateToStr(GetFilesTime(Edit1.Text, 0)); 61       Edit3.Text:= DateToStr(GetFilesTime(Edit1.Text, 1)); 62       Edit4.Text:= DateToStr(GetFilesTime(Edit1.Text, 2)); 63     end 64   else ShowMessage('請指定文件！'); 65 end; 66 end.

主要是獲取時間信息，稍後會有獲取文件其它信息的代碼。