小弟用opendialog打开一个文件,想让文件的属性各个字段显示在listview中,比如文件的名字,日期,路径,内容等;
望各位大虾援助一下,多谢!!
望各位大虾援助一下,多谢!!
解决方案 »
- 数据过滤
- 请教:如何实现数据库的远程访问?在线,急!!!!!!
- 如何WM_MOUSEWHEEL的MESSAGE里的滚轮步距~在线等待,马上结帖~
- laohai来,上次答应给你的分,给你
- 请大家帮我给我个例子,
- 。。。。暂时告别CSDN。。。 散分。(我会回来的),我回来的时候结帐!
- 有谁知道玩游戏背单词的用户名和密码?
- 如何把任意文件存到一个SQL Server的一个字段中。
- 请问斑竹、cobi、chechy等高人,你们遇到过:物理数据库中字段映射到client端对象的问题吗?
- 怎么会有这种提示。不爽!!!
- 为什么TitleBand的内容只在第一页显示,怎样让它在每页都有呢?
- 关于ActiveX的问题
var
SearRec: TSearchRec;
str : string ;
begin
with TOpenDialog.Create(nil) do
begin
if Execute then
begin
if FindFirst(FileName,faAnyfile,SearRec)=0 then //找到文件
str := Format('FileName=%S '+ // 文件名;
#13#10+
'Size=%d Byte'+ // 大小
#13#10+
'CreateDate='+ //创建日期
DateTostr(FileDateToDateTime(SearRec.Time)) ,[SearRec.Name,SearRec.size]);
showmessage(str) ;
{ SearRec.FindData.ftCreationTime;
SearRec.FindData.ftLastAccessTime;
SearRec.FindData.ftLastWriteTime; // 其他信息
}
Memo1.Lines.LoadFromFile(FileName); // 将文件内容写入Memo中
end;
Free;
end;
end;
测试通过了,可以得到其他信息入: 上次访问时间,上次修改时间,文件句柄等等
希望对你有所帮助
不过还是要谢谢老兄!