如何修改每壹個文件的時間？

用修改文件時間的方法來加密文件

江立

在Delphi中獲取和修改文件的時間

本文介紹了在Delphi中利用系統函數和Windows API函數調用來獲取和修改文件的時間信息的方法。

熟悉Windows 95/98的朋友壹定經常會用單擊鼠標右鍵的方法來查看所選定的文件的屬性信息。在屬性菜單中會列出該文件的創建時間、修改時間和訪問時間。這些信息常常是很有用的，它們的設置壹般都是由操作系統（也就是由Dos/Windows等等）自動完成的，不會讓用戶輕易修改。

這裏，我向大家介紹在Delphi中如何實現文件時間的獲取和修改方法。Delphi中提供了很完備的Windows API函數的調用接口，可以方便的進行高級Windows編程。利用Delphi中的FindFirst函數可以得到壹個文件的屬性記錄，該記錄中的FindData域中就記載了詳細的文件時間信息。然而遺憾的是，FindData中的時間信息是不能直接得到的。因此，有人（編者按：很遺憾不知此人姓名）編寫了壹個轉換函數來完成文件時間格式的轉換。下面給出了具體的實現方法，僅供參考：

function CovFileDate(Fd:_FileTime):TDateTime;

{ 轉換文件的時間格式 }

var

Tct:_SystemTime;

Temp:_FileTime;

begin

FileTimeToLocalFileTime(Fd,Temp);

FileTimeToSystemTime(Temp,Tct);

CovFileDate:=SystemTimeToDateTime(Tct);

end;

有了上面的函數支持，我們就可以獲取壹個文件的時間信息了。以下是壹個簡單的例子：

procdeure GetFileTime(const Tf:string);

{ 獲取文件時間，Tf表示目標文件路徑和名稱 }

const

Model=yyyy/mm/dd,hh:mm:ss; { 設定時間格式 }

var

Tp:TSearchRec; { 申明Tp為壹個查找記錄 }

T1,T2,T3:string;

begin

FindFirst(Tf,faAnyFile,Tp); { 查找目標文件 } T1:=FormatDateTime(Model,

CovFileDate(Tp.FindData.ftCreationTime)));

{ 返回文件的創建時間 }

T2:=FormatDateTime(Model,

CovFileDate(Tp.FindData.ftLastWriteTime)));

{ 返回文件的修改時間 }

T3:=FormatDateTime(Model,Now));

{ 返回文件的當前訪問時間 }

FindClose(Tp);

end;

設置文件的時間要復雜壹些，這裏介紹利用Delphi中的DataTimePicker組件來輔助完成這壹復雜的操作。下面的例子利用了四個DataTimePicker組件來完成文件創建時間和修改時間的設置。註意：文件的訪問時間用修改時間來代替。使用下面的例子時，請在您的Form上添加四個DataTimePicker組件。其中第壹和第三個DataTimePicker組件中的Kind設置為dtkDate，第二個和第四個DataTimePicker組件中的Kind設置為dtkTime.

procedure SetFileDateTime(const Tf:string);

{ 設置文件時間，Tf表示目標文件路徑和名稱 }

var

Dt1,Dt2:Integer;

Fs:TFileStream;

Fct,Flt:TFileTime;

begin

Dt1:=DateTimeToFileDate(

Trunc(Form1.DateTimePicker1.Date) + Frac(Form1.DateTimePicker2.Time));

Dt2:=DateTimeToFileDate(

Trunc(Form1.DateTimePicker3.Date) + Frac(Form1.DateTimePicker4.Time));

{ 轉換用戶輸入在DataTimePicker中的信息 }