Delphi中取得和设置硬盘上文件的创建日期、修改日期、访问日期、文件属性
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中取得和设置硬盘上文件的创建日期、修改日期、访问日期、文件属性相关推荐
- 打开被独占的文件方法(二) -- 修改句柄访问权限
打开被独占的文件方法(二) -- 修改句柄访问权限 2010年06月08日 星期二 11:40 来自:http://hi.baidu.com/wsh_chb/blog/item/1dfafadd4da ...
- 如何在 iOS10 Safari 中跳转 [设置-通用-描述文件]
今天研究了一下企业应用分发,网络上有很多文章讲如何利用一个 Web 页面进行 iOS 企业应用分发下载安装,这里就不再赘述:这篇文章主要针对的是企业应用安装后如何在 Safari 中引导用户跳转到 [ ...
- 电脑PC微信客户端浏览器网页内容缓存在内存中,不在硬盘上,找不到的
如题,用ProcessMonitor根本监控不到微信存放的文件在哪里.真的找了好久好久没找到. 用charles抓包来看: 已经下载过的内容,微信不会再下载. 关掉微信,再打开微信,微信又会重新下载内 ...
- 在Delphi中如何创建和使用udl文件
如何在Delphi中创建和使用udl文件: 方法一: 直接弹出UDL对话框: use ADOConed; EditConnectionString(ADOQuery1); 方法二: ⑴.右键---新建 ...
- VS中编译时出现“无法将文件...,对路径...的访问被拒绝”的解决
在今天的编程中,莫名其妙的出现了这种问题.在VS2013中,点击运行出现"无法将文件-,对路径-的访问被拒绝"的错误,打开bin中的debug直接运行exe,发现没有权限,访问被拒 ...
- Win10、11 如何更改文件和文件夹的 上次修改日期、创建日期和上次访问日期
How to Change the Last Modified Date, Creation Date, and Last Accessed Date for Files and Folders ...
- php默认访问的文件,PHP 网站修改默认访问文件的nginx配置
这篇文章主要介绍了PHP 网站修改默认访问文件的nginx配置,需要的朋友可以参考下 搭建好lnmp后,有时候并不需要直接访问index.php,配置其他的默认访问文件比如index.html这时候需 ...
- 微型计算机系统的主存储器,微型计算机系统中 ,操作系统保存在硬盘上,其主存储器应该采用 ( )...
[单选题]三角形螺纹的牙型角为( ). [单选题]Is undressing likely to be the act of ( )? [单选题]在外加匀强电场E中,一电偶极子的偶极矩与电场夹角为 , ...
- Delphi中ExtractFilePath、ParamStr以及更多文件/目录操作涉及的函数。附加对应的例子...
先介绍ExtractFilePath和ParamStr ParamStr 该函数的原型是:function paramstr(i: Integer): String; 对于任何的application ...
最新文章
- java中collection方法_Java 8中的Collector toCollection()方法
- 【RxSwift 实践系列 2/3】thinking in Rx- Create和Drive
- 解析 Callable Runnable Future 使用和原理
- finalspeed安装及使用教程
- 刘宇凡:自媒体不是自媒体 应是志媒体
- 文件指针和文件描述符之间的相互转换 fd----fp 和 fp----fd
- Springboot2数据访问
- style 字体加粗_第9篇 Qt Quick入门教程之基础(九)文本显示和字体
- 英语不好,学编程太困难?或许用文言文来编程你就更加容易上手了!
- 密码学Cryptology
- excel表格数据合并的简便操作
- veu项目中下载图片到本地
- matlab中abs函数,matlab 中的abs函数什么意思 编程知识
- GridView 控制默认分页页码间距 及字体大小
- 今天我们来聊聊,如何做好第三方系统对接
- 互联网快讯:京东公布“双11”节奏;猿辅导、掌门教育布局素质教育
- 化繁为简——分解复杂的SQL语句
- 9.数据采集与监控知识点
- JavaScript常见设计模式
- border属性之border-radius