文件管理函数（一）

1. //判断文件是否存在 FileExists
2. var
3.   f: string;
4. begin
5.   f := 'c:/temp/test.txt';
6.   if not FileExists(f) then
7.   begin
8.     //如果文件不存在
9.   end;
10. end;
11. --------------------------------------------------------------------------------
13. //判断文件夹是否存在 DirectoryExists
14. var
15.   dir: string;
16. begin
17.   dir := 'c:/temp';
18.   if not DirectoryExists(dir) then
19.   begin
20.     //如果文件夹不存在
21.   end;
22. end;
23. --------------------------------------------------------------------------------
25. //删除文件 DeleteFile; Windows.DeleteFile
26. var
27.   f: string;
28. begin
29.   f := 'c:/temp/test.txt';
30.   //DeleteFile(f);  //返回 Boolean
32.   //或者用系统API:
33.   Windows.DeleteFile(PChar(f));  //返回 Boolean
34. end;
35. --------------------------------------------------------------------------------
37. //删除文件夹 RemoveDir; RemoveDirectory
38. var
39.   dir: string;
40. begin
41.   dir := 'c:/temp';
42.   RemoveDir(dir);  //返回 Boolean
44.   //或者用系统 API:
45.   RemoveDirectory(PChar(dir));  //返回 Boolean
46. end;
47. --------------------------------------------------------------------------------
49. //获取当前文件夹 GetCurrentDir
50. var
51.   dir: string;
52. begin
53.   dir := GetCurrentDir;
54.   ShowMessage(dir); //C:/Documents and Settings/wy/My Documents/RAD Studio/Projects
55. end;
56. --------------------------------------------------------------------------------
58. //设置当前文件夹 SetCurrentDir; ChDir; SetCurrentDirectory
59. var
60.   dir: string;
61. begin
62.   dir := 'c:/temp';
63.   if SetCurrentDir(dir) then
64.     ShowMessage(GetCurrentDir);  //c:/temp
66.   //或者
67.   ChDir(dir);  //无返回值
69.   //也可以使用API:
70.   SetCurrentDirectory(PChar(Dir));  //返回 Boolean
71. end;
72. --------------------------------------------------------------------------------
74. //获取指定驱动器的当前路径名 GetDir
75. var
76.   dir: string;
77.   b: Byte;
78. begin
79.   b := 0;
80.   GetDir(b,dir);
81.   ShowMessage(dir);  //
83.   //第一个参数: 1、2、3、4...分别对应: A、B、C、D...
84.   //0 是缺省驱动器
85. end;
86. --------------------------------------------------------------------------------
88. //文件改名 RenameFile
89. var
90.   OldName,NewName: string;
91. begin
92.   OldName := 'c:/temp/Old.txt';
93.   NewName := 'c:/temp/New.txt';
95.   if RenameFile(OldName,NewName) then
96.     ShowMessage('改名成功!');
98.   //也可以:
99.   SetCurrentDir('c:/temp');
100.   OldName := 'Old.txt';
101.   NewName := 'New.txt';
103.   if RenameFile(OldName,NewName) then
104.     ShowMessage('改名成功!');
105. end;
106. --------------------------------------------------------------------------------
108. //建立文件夹 CreateDir; CreateDirectory; ForceDirectories
109. var
110.   dir: string;
111. begin
112.   dir := 'c:/temp/delphi';
113.   if not DirectoryExists(dir) then
114.     CreateDir(dir);  //返回 Boolean
116.   //也可以直接用API:
117.   CreateDirectory(PChar(dir),nil);  //返回 Boolean
119.   //如果缺少上层目录将自动补齐:
120.   dir := 'c:/temp/CodeGear/Delphi/2007/万一';
121.   ForceDirectories(dir);  //返回 Boolean
122. end;
123. --------------------------------------------------------------------------------
125. //删除空文件夹 RemoveDir; RemoveDirectory
126. var
127.   dir: string;
128. begin
129.   dir := 'c:/temp/delphi';
130.   RemoveDir(dir);  //返回 Boolean
132.   //也可以直接用API:
133.   RemoveDirectory(PChar(dir));  //返回 Boolean
134. end;
135. --------------------------------------------------------------------------------
137. //建立新文件 FileCreate
138. var
139.   FileName: string;
140.   i: Integer;
141. begin
142.   FileName := 'c:/temp/test.dat';
143.   i := FileCreate(FileName);
145.   if i>0 then
146.     ShowMessage('新文件的句柄是: ' + IntToStr(i))
147.   else
148.     ShowMessage('创建失败!');
149. end;
150. --------------------------------------------------------------------------------
152. //获取当前文件的版本号 GetFileVersion
153. var
154.   s: string;
155.   i: Integer;
156. begin
157.   s := 'C:/WINDOWS/notepad.exe';
158.   i := GetFileVersion(s);  //如果没有版本号返回 -1
159.   ShowMessage(IntToStr(i));  //327681 这是当前记事本的版本号(还应该再转换一下)
160. end;
161. --------------------------------------------------------------------------------
163. //获取磁盘空间 DiskSize; DiskFree
164. var
165.   r: Real;
166.   s: string;
167. begin
168.   r := DiskSize(3);  //获取C:总空间, 单位是字节
169.   r := r/1024/1024/1024;
170.   Str(r:0:2,s);  //格式为保留两位小数的字符串
171.   s := 'C盘总空间是: ' + s + ' GB';
172.   ShowMessage(s);  //xx.xx GB
174.   r := DiskFree(3);  //获取C:可用空间
175.   r := r/1024/1024/1024;
176.   Str(r:0:2,s);
177.   s := 'C盘可用空间是: ' + s + ' GB';
178.   ShowMessage(s);  //xx.xx GB
179. end;