TDirectory.GetCreationTime、TDirectory.SetCreationTime获取和设置文件夹创建时间
2013-12-29 16:00
369 查看
使用函数:
System.IOUtils.TDirectory.GetCreationTime//获取创建时间
System.IOUtils.TDirectory.SetCreationTime//设置创建时间
注:UTC结尾的返回 <Coordinated Universal Time即协调世界时>。
示例:
代码
System.IOUtils.TDirectory.GetCreationTime//获取创建时间
System.IOUtils.TDirectory.SetCreationTime//设置创建时间
注:UTC结尾的返回 <Coordinated Universal Time即协调世界时>。
示例:
代码
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.FileCtrl, System.IOUtils; type TForm1 = class(TForm) Button_GetCreateTime: TButton; Button_SetCreateTime: TButton; Edit_Time: TEdit; Button_ChooseFolder: TButton; Label_Path: TLabel; Memo1: TMemo; procedure Button_ChooseFolderClick(Sender: TObject); procedure Button_GetCreateTimeClick(Sender: TObject); procedure Button_SetCreateTimeClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} var sDir: string; procedure TForm1.Button_ChooseFolderClick(Sender: TObject); begin if not SelectDirectory('请选择一个文件夹', 'H:\', sDir) then Exit; Label_Path.Caption := sDir; Button_SetCreateTime.Enabled := True; Button_GetCreateTime.Enabled := True; end; procedure TForm1.Button_GetCreateTimeClick(Sender: TObject); var CTime: TDateTime; begin // try CTime := TDirectory.GetCreationTime(Label_Path.Caption); Edit_Time.Text := DateTimeToStr(CTime); except on e: Exception do begin MessageDlg('获取失败!' + e.Message, mtError, [mbok], 0); Exit; end; end; end; procedure TForm1.Button_SetCreateTimeClick(Sender: TObject); begin try TDirectory.SetCreationTime(Label_Path.Caption, StrToDateTime(Edit_Time.Text)); except on e1: Exception do begin MessageDlg('设置失败!' + e1.Message, mtError, [mbok], 0); Exit; end; end; end; end.
相关文章推荐
- WinAPI: GetLocalTime、SetLocalTime、SetSystemTime - 获取与设置系统时间
- TDirectory.GetAttributes、TDirectory.SetAttributes获取和设置文件夹属性
- Python3基础 getatime getctime getmtime 获取一个文件的最近访问时间 创建时间 最新修改时间
- TDirectory.GetLastAccessTime获取指定目录最后访问时间
- WinAPI: GetDoubleClickTime、SetDoubleClickTime - 获取与设置鼠标双击间隔时间
- WinAPI: SetCurrentDirectory、GetCurrentDirectory - 设置与获取当前目录
- WinAPI: SetCurrentDirectory、GetCurrentDirectory - 设置与获取当前目录
- Qt中获取文件夹路径的方法-QFileDialog::getExistingDirectory的使用
- 在vb中使用Iphlpapi.dll获取网络信息 第二章 第十五节 设置本机默认的生存时间(time-to-live:TTL)值
- VC++获取当前系统时间日期 GetSystemTime()函数的用法
- Windows获取时间函数(使用GetLocalTime,GetSystemTime,SystemTimeToTzSpecificLocalTime,GetFileTime API函数
- 设置系统SetLocalTime设置系统时间
- System.currentTimeMillis,getTimeInMillis与new Date().getTime获取当前时间戳耗时比较
- System.currentTimeMillis,getTimeInMillis与new Date().getTime获取当前时间戳耗时比较
- OSTimeGet()--获取当前时间
- python文件夹遍历,文件操作,获取文件修改创建时间
- SetLocalTime设置本地时间
- C语言获取微秒级的系统时间 gettimeofday timeval timeout
- set_time_limit(0) 设置程序执行时间的函数
- C语言:获取程序运行消耗的时间——gettimeofday