?

Delphi中取得和設置硬盤上文件的創建日期、修改日期、訪問日期、文件屬性

function FileAge(const FileName: string): Integer; $[SysUtils.pas
功能 返回文件創建的時間
說明 文件不存在則返回-1
參考 function Windows.FindFirstFile
例子
///Begin FileAge,DateTimeToStr,FileDateToDateTime
procedure TForm1.Button1Click(Sender: TObject);
begin
SpinEdit1.Value := FileAge(Edit1.Text);
if SpinEdit1.Value > 0 then
Edit2.Text := DateTimeToStr(FileDateToDateTime(SpinEdit1.Value));
end;
///End FileAge,DateTimeToStr,FileDateToDateTime
首部 function FileGetDate(Handle: Integer): Integer; $[SysUtils.pas
功能 返回文件的修改時間
說明 讀取失敗則返回-1
參考 function Windows.GetFileTime
例子
///Begin FileGetDate
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
I := FileOpen(Edit1.Text, fmOpenRead);
if I < 0 then Exit;
SpinEdit1.Value := FileGetDate(I);
Edit2.Text := DateTimeToStr(FileDateToDateTime(SpinEdit1.Value));
FileClose(I);
end;
///End FileGetDate
────────────────────────
首部 function FileSetDate(const FileName: string; Age: Integer): Integer; overload; $[SysUtils.pas
首部 function FileSetDate(Handle: Integer; Age: Integer): Integer; overload; platform; $[SysUtils.pas
功能 返回設置文件的修改時間
說明 修改成功則返回0
參考 function Windows.SetFileTime
例子 SpinEdit1.Value := FileSetDate(Edit1.Text, DateTimeToFileDate(StrToDateTime(Edit2.Text)));
────────────────────────
首部 function FileGetAttr(const FileName: string): Integer; platform; $[SysUtils.pas
功能 返回文件的屬性
說明 讀取失敗則返回$FFFFFFFF
參考 function Windows.GetFileAttributes
例子 SpinEdit1.Value := FileGetAttr(Edit1.Text);
────────────────────────
首部 function FileSetAttr(const FileName: string; Attr: Integer): Integer; platform; $[SysUtils.pas
功能 返回設置文件的屬性
說明 設置成功則返回0
參考 function Windows.SetFileAttributes
例子 SpinEdit1.Value := FileSetAttr(Edit1.Text, SpinEdit2.Value);

──────────────────────── ---------------------------轉載于百度某某大俠的博客！-------------------------------------------------------

?

轉載于:https://www.cnblogs.com/doutian/archive/2012/10/29/2745406.html

總結

以上是生活随笔為你收集整理的Delphi中取得和设置硬盘上文件的创建日期、修改日期、访问日期、文件属性的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。