如何用Delphi获取Windows下的文件Date而非Date created delphi 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 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); ──────────────────────── tstringlist.savetofile()总是把已有的文件覆盖掉,我想每次都追加到文件末尾,该如何作? 关于串口通讯的问题!!!急呀。。。 请教问样在ActionToolBar上面添加按钮阿?在线等 我为这问题郁闷着,帮帮忙!!! 有谁能提供几个delphi基础命 这是DELPHI的一个BUG吗? 求助:控件渐变的问题 怎么样近控制RICHEDIT的一行文件的居中居左居右 又一MS面试题目,先做出来的有分! 难!难!难!窗口融合问题?(内的源码) 请教数据库查询语句 DIOCP开源项目-利用队列+0MQ+多进程逻辑处理,搭建稳定,高效,分布式的服务端
功能 返回文件创建的时间
说明 文件不存在则返回-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);
────────────────────────