文件管理函数（二）

 

1. //查找一个文件 FileSearch
2. var
3.   FileName,Dir,s: string;
4. begin
5.   FileName := 'notepad.exe';
6.   Dir := 'c:/windows';
7.   s := FileSearch(FileName,Dir);
9.   if s<>'' then
10.     ShowMessage(s)  //c:/windows/notepad.exe
11.   else
12.     ShowMessage('没找到');
13. end;
14. --------------------------------------------------------------------------------
16. //搜索文件 FindFirst; FindNext; FindClose
17. var
18.   sr: TSearchRec;     //定义 TSearchRec 结构变量
19.   Attr: Integer;      //文件属性
20.   s: string;          //要搜索的内容
21.   List: TStringList;  //存放搜索结果
22. begin
23.   s := 'c:/windows/*.txt';
24.   Attr := faAnyFile;              //文件属性值faAnyFile表示是所有文件
25.   List := TStringList.Create;     //List建立
27.   if FindFirst(s,Attr,sr)=0 then  //开始搜索,并给 sr 赋予信息, 返回0表示找到第一个
28.   begin
29.     repeat                        //如果有第一个就继续找
30.       List.Add(sr.Name);          //用List记下结果
31.     until(FindNext(sr)<>0);       //因为sr已经有了搜索信息, FindNext只要这一个参数, 返回0表示找到
32.   end;
33.   FindClose(sr);                  //需要结束搜索, 搜索是内含句柄的
35.   ShowMessage(List.Text);         //显示搜索结果
36.   List.Free;                      //释放List
38.   //更多注释:
39.   //TSearchRec 结构是内涵文件大小、名称、属性与时间等信息
40.   //TSearchRec 中的属性是一个整数值, 可能的值有:
41.   //faReadOnly  1   只读文件
42.   //faHidden    2   隐藏文件
43.   //faSysFile   4   系统文件
44.   //faVolumeID  8   卷标文件
45.   //faDirectory 16  目录文件
46.   //faArchive   32  归档文件
47.   //faSymLink   64  链接文件
48.   //faAnyFile   63  任意文件
50.   //s 的值也可以使用?通配符,好像只支持7个?, 如果没有条件就是*, 譬如: C:/*
51.   //实际使用中还应该在 repeat 中提些条件, 譬如判断如果是文件夹就递归搜索等等
52. end;
53. --------------------------------------------------------------------------------
55. //读取与设置文件属性 FileGetAttr; FileSetAttr
56. var
57.   FileName: string;
58.   Attr: Integer;  //属性值是一个整数
59. begin
60.   FileName := 'c:/temp/Test.txt';
61.   Attr := FileGetAttr(FileName);
62.   ShowMessage(IntToStr(Attr));  //32, 存档文件
64.   //设置为隐藏和只读文件:
65.   Attr := FILE_ATTRIBUTE_READONLY or FILE_ATTRIBUTE_HIDDEN;
66.   if FileSetAttr(FileName,Attr)=0 then  //返回0表示成功
67.     ShowMessage('设置成功!');
69.   //属性可选值(有些用不着):
70.   //FILE_ATTRIBUTE_READONLY = 1; 只读
71.   //FILE_ATTRIBUTE_HIDDEN = 2; 隐藏
72.   //FILE_ATTRIBUTE_SYSTEM = 4; 系统
73.   //FILE_ATTRIBUTE_DIRECTORY = 16
74.   //FILE_ATTRIBUTE_ARCHIVE = 32; 存档
75.   //FILE_ATTRIBUTE_DEVICE = 64
76.   //FILE_ATTRIBUTE_NORMAL = 128; 一般
77.   //FILE_ATTRIBUTE_TEMPORARY = 256
78.   //FILE_ATTRIBUTE_SPARSE_FILE = 512
79.   //FILE_ATTRIBUTE_REPARSE_POINT = 1204
80.   //FILE_ATTRIBUTE_COMPRESSED = 2048; 压缩
81.   //FILE_ATTRIBUTE_OFFLINE = 4096
82.   //FILE_ATTRIBUTE_NOT_CONTENT_INDEXED = 8192; 不被索引
83.   //FILE_ATTRIBUTE_ENCRYPTED = 16384
84. end;
85. --------------------------------------------------------------------------------
87. //获取文件的创建时间 FileAge; FileDateToDateTime
88. var
89.   FileName: string;
90.   ti: Integer;
91.   dt: TDateTime;
92. begin
93.   FileName := 'c:/temp/Test.txt';
94.   ti := FileAge(FileName);
95.   ShowMessage(IntToStr(ti));  //返回: 931951472, 需要转换
97.   dt := FileDateToDateTime(ti);  //转换
98.   ShowMessage(DateTimeToStr(dt));  //2007-12-12 14:27:32
99. end;
100. --------------------------------------------------------------------------------