delphi 文件的操作：重命名、复制、移动、删除 | 文件

源码资源网

delphi 文件的操作：重命名、复制、移动、删除 | 文件

第一种方法：

RenameFile('Oldname', 'Newname');CopyFile(PChar('Oldname'), PChar('Newname'), False);MoveFile(PChar('Oldname'), PChar('Newname'));DeleteFile(文件名);

第二种方法：
在Delphi可以使用ShellApi单元中的函数SHFileOperation来实现消息上传控件的制作，

SHFileOperation函数可以实现各种文件操作，只需将文件操作命令(拷贝、剪切、删除、重命名)发送给

它，它就会实现Windows资源管理器那样的文件操作功能。该函数的声明如下：

function SHFileOperation(constract lpFileOp : LPSHFILEOPSTRUCT): Integer;stdcall;LPSHFILEOPSTRUCT的结构类型：typedef struct _SHFILEOPSTRUCT{HWND hwnd; // 显示对话框的句柄UINT wFunc; // 指明操作类型,支持4种操作：FO_COPY拷贝、FO_MOVE剪切、FO_DELETE删除、FO_RENAME重命名。LPCSTR pFrom; // 源文件路径，可以是多个文件LPCSTR pTo; // 目标路径，可以是路径或文件名，FO_DELETE时，该参数不起作用FILEOP_FLAGS fFlags; // 标志，附加的风格选项BOOL fAnyOperationsAborted; // 是否可被中断LPVOID hNameMappings; // 文件映射名字，可在其它 Shell 函数中使用LPCSTR lpszProgressTitle; // 只在 FOF_SIMPLEPROGRESS 时，指定对话框的标题。}SHFILEOPSTRUCT;

例如：

1. uses ShellAPI;
   
2. type
   
3. TFileCommand=(fcCopy,fcMove,fcDelete,fcRename);
   
4. procedure TForm1.FileOperation(aCommand: FileCommand; var aFromFile, aToFile: String);
   
5. 
   
6. var
   
7. 
   
8. FileOp: TSHFileOPStruct;
   
9. 
   
10. begin
    
11. 
    
12. ZeroMemory(@FileOp, sizeof(FileOp));
    
13. 
    
14. FileOp.Wnd := Form1.Handle;
    
15. 
    
16. //显示一个进度对话框，但不显示文件名。
    
17. 
    
18. FileOp.fFlags := FOF_SimpleProgress;
    
19. 
    
20. //String类型转换到PAnsiChar类型，需要经过AnsiString类型
    
21. 
    
22. FileOp.pFrom := PAnsiChar( AnsiString(aFromFile));
    
23. 
    
24. FileOp.pTo := PAnsiChar( AnsiString(aToFile));
    
25. 
    
26. case aCommand of
    
27. 
    
28. fcCopy: FileOp.wFunc := FO_COPY; // 复制文件
    
29. 
    
30. fcMove: FileOp.wFunc := FO_MOVE; // 移动文件
    
31. 
    
32. fcDelete: FileOp.wFunc := FO_DELETE; // 删除文件
    
33. 
    
34. fcRename: FileOp.wFunc := FO_RENAME; // 重命名文件
    
35. 
    
36. end;
    
37. 
    
38. SHFileOperation(FileOp);
    
39. 
    
40. end;

复制代码

Delphi 判断文件是否存在，是否正在使用

1. function IsFileInUse(fName: string): boolean;
   
2. var
   
3. HFileRes: HFILE;
   
4. begin
   
5. Result := false;
   
6. if not FileExists(fName) then //如果文件不存在
   
7. exit;
   
8. HFileRes := CreateFile(pchar(fName), GENERIC_READ or GENERIC_WRITE,
   
9. 
   
10. {this is the trick!}, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, );
    
11. Result := (HFileRes = INVALID_HANDLE_VALUE);
    
12. if not Result then
    
13. CloseHandle(HFileRes);
    
14. end;
    
15. 调用
    
16. procedure TForm1.Button1Click(Sender: TObject);
    
17. begin
    
18. if OpenDialog1.Execute then
    
19. begin
    
20. if IsFileInUse(OpenDialog1.FileName) = true then
    
21. showmessage('文件正在使用')
    
22. else
    
23. showmessage('文件没有使用');
    
24. end;
    
25. end;

复制代码

Delphi删除或移动正在使用的文件

Delphi删除文件容易，但删除正在使用的文件，那就需要手段了，因为正在使用的文件是不允许被删除的，看代码：

1. unit Unit1;
   
2. interface
   
3. uses
   
4. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   
5. StdCtrls, ExtCtrls;
   
6. const
   
7. FILE_DELETE=;
   
8. FILE_RENAME=;
   
9. type
   
10. TForm1 = class(TForm)
    
11. Button1: TButton;
    
12. Label1: TLabel;
    
13. Label2: TLabel;
    
14. RadioGroup1: TRadioGroup;
    
15. Edit1: TEdit;
    
16. Edit2: TEdit;
    
17. Button2: TButton;
    
18. Button3: TButton;
    
19. OpenDialog1: TOpenDialog;
    
20. procedure Button2Click(Sender: TObject);
    
21. procedure Button3Click(Sender: TObject);
    
22. procedure Button1Click(Sender: TObject);
    
23. procedure Edit2Change(Sender: TObject);
    
24. procedure RadioGroup1Click(Sender: TObject);
    
25. private
    
26. { Private declarations }
    
27. public
    
28. { Public declarations }
    
29. end;
    
30. var
    
31. Form1: TForm1;
    
32. implementation
    
33. {$R *.DFM}
    
34. function DeleteRenameFileAfterBoot(lpFileNameToSrc,lpFileNameToDes: PChar;flag:Uint): Boolean;
    
35. var
    
36. WindowsDirs: array [..MAX_PATH + ] of Char;
    
37. lpDirSrc,lpDirDes: array [..MAX_PATH + ] of Char;
    
38. VerPlatForm: TOSVersionInfoA;
    
39. StrLstDelte: TStrings;
    
40. filename,s :String;
    
41. i:integer;
    
42. begin
    
43. Result := FALSE;
    
44. ZeroMemory(@VerPlatForm, SizeOf(VerPlatForm));
    
45. VerPlatForm.dwOSVersionInfoSize := SizeOf(VerPlatForm);
    
46. GetVersionEx(VerPlatForm);
    
47. if VerPlatForm.dwPlatformId = VER_PLATFORM_WIN32s then
    
48. begin
    
49. SetLastError(ERROR_NOT_SUPPORTED);
    
50. Exit;
    
51. end
    
52. else if VerPlatForm.dwPlatformId = VER_PLATFORM_WIN32_NT then
    
53. begin
    
54. if flag=FILE_DELETE then
    
55. Result := MoveFileEx(PChar(lpFileNameToSrc), nil,
    
56. MOVEFILE_REPLACE_EXISTING + MOVEFILE_DELAY_UNTIL_REBOOT)
    
57. else if (flag=FILE_RENAME) then
    
58. Result := MoveFileEx(lpFileNameToSrc, lpFileNameToDes,
    
59. MOVEFILE_REPLACE_EXISTING + MOVEFILE_DELAY_UNTIL_REBOOT);
    
60. end
    
61. else begin
    
62. StrLstDelte := TStringList.Create;
    
63. GetWindowsDirectory(WindowsDirs, MAX_PATH + );
    
64. filename:=WindowsDirs;
    
65. if filename[length(filename)]<>'\' then filename:=filename+'\';
    
66. filename:=filename+'wininit.ini';
    
67. if FileExists(filename) then
    
68. StrLstDelte.LoadFromFile(filename);
    
69. if StrLstDelte.IndexOf('[rename]') = - then
    
70. StrLstDelte.Add('[rename]');
    
71. GetShortPathName(lpFileNameToSrc, lpDirSrc, MAX_PATH + );
    
72. if fileexists(lpFileNameToDes) then
    
73. GetShortPathName(lpFileNameToDes, lpDirDes, MAX_PATH + )
    
74. else begin
    
75. s:=extractfilename(lpFileNameToDes);
    
76. i:=pos('.',s);
    
77. if (i=) then
    
78. begin
    
79. if length(s)> then raise exception.create('不是有效的短文件名(8+3格式)!');
    
80. end
    
81. else begin
    
82. if (i->)or(length(s)-i>) then raise exception.create('不是有效的短文件名(8+3格式)!');
    
83. end;
    
84. strcopy(lpDirDes,lpFileNameToDes);
    
85. end;
    
86. if (flag=FILE_DELETE) then {删除}
    
87. StrLstDelte.Insert(StrLstDelte.IndexOf('[rename]') + , 'NUL='+string(lpDirSrc))
    
88. else if (flag=FILE_RENAME) then {改名}
    
89. StrLstDelte.Insert(StrLstDelte.IndexOf('[rename]') + , string(lpDirDes)+'='+string(lpDirSrc));
    
90. 
    
91. StrLstDelte.SaveToFile(filename);
    
92. Result := TRUE;
    
93. StrLstDelte.Free;
    
94. end;
    
95. end;
    
96. procedure TForm1.Button2Click(Sender: TObject);
    
97. begin
    
98. if OpenDialog1.Execute then
    
99. edit1.text:=OpenDialog1.FileName;
    
100. end;
     
101. 
     
102. procedure TForm1.Button3Click(Sender: TObject);
     
103. begin
     
104. if OpenDialog1.Execute then
     
105. edit2.text:=OpenDialog1.FileName;
     
106. end;
     
107. procedure TForm1.Button1Click(Sender: TObject);
     
108. var
     
109. i:uint;
     
110. begin
     
111. if RadioGroup1.ItemIndex= then i:=FILE_DELETE
     
112. else i:=FILE_RENAME;
     
113. if edit1.text='' then raise exception.create('源文件为空！');
     
114. if (i=FILE_RENAME)and(edit2.text='') then raise exception.create('目标文件为空！');
     
115. if not DeleteRenameFileAfterBoot(pchar(edit1.text),pchar(edit2.text),i) then
     
116. showmessage('出错了')
     
117. else showmessage('操作完成');
     
118. end;
     
119. 
     
120. procedure TForm1.Edit2Change(Sender: TObject);
     
121. var
     
122. VerPlatForm: TOSVersionInfoA;
     
123. buf: array [..MAX_PATH + ] of Char;
     
124. begin
     
125. if not fileexists(edit2.text) then exit;
     
126. ZeroMemory(@VerPlatForm, SizeOf(VerPlatForm));
     
127. VerPlatForm.dwOSVersionInfoSize := SizeOf(VerPlatForm);
     
128. GetVersionEx(VerPlatForm);
     
129. if VerPlatForm.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS then
     
130. begin
     
131. GetShortPathName(pchar(edit2.text), buf, MAX_PATH + );
     
132. edit2.text:=buf;
     
133. end;
     
134. end;
     
135. procedure TForm1.RadioGroup1Click(Sender: TObject);
     
136. begin
     
137. edit2.Enabled:=RadioGroup1.ItemIndex=;
     
138. button2.Enabled:=RadioGroup1.ItemIndex=;
     
139. end;
     
140. end.

复制代码

其实就是利用Windows重启的瞬间来删除或移动文件。

文件，文件夹删除移动和拷贝

1. function WinErasefile(Owner: Integer; WichFiles: string; SendToRecycleBin, Confirm: Boolean): Boolean;
   
2. //用于将文件直接删除或移动到回收站
   
3. var
   
4. Struct : TSHFileOpStructA;
   
5. begin
   
6. FillChar(Struct, SizeOf(Struct), );
   
7. While pos(';', WichFiles)> do
   
8. WichFiles[pos(';', WichFiles)] := #;
   
9. WichFiles := WichFiles + ##;
   
10. with Struct do
    
11. begin
    
12. wnd := Owner;
    
13. wFunc := FO_Delete;
    
14. pFrom := PChar(WichFiles);
    
15. pTo := nil;
    
16. If not Confirm then fFlags := FOF_NOCONFIRMATION;
    
17. If SendToRecycleBin then fFLags := fFlags or FOF_ALLOWUNDO or FOF_FILESONLY
    
18. else fFlags := fFlags or  or FOF_FILESONLY;
    
19. hNameMappings := nil;
    
20. lpszProgressTitle := nil;
    
21. end;
    
22. result := (SHFileOperationA(Struct)=) and (not Struct.fAnyOperationsAborted);
    
23. end;
    
24. 
    
25. function WinErasepath(Owner: Integer; WichFiles: string; SendToRecycleBin, Confirm: Boolean): Boolean;
    
26. //用于将目录直接删除或移动到回收站
    
27. var
    
28. Struct : TSHFileOpStructA;
    
29. begin
    
30. FillChar(Struct, SizeOf(Struct), );
    
31. While pos(';', WichFiles)> do
    
32. WichFiles[pos(';', WichFiles)] := #;
    
33. WichFiles := WichFiles + ##;
    
34. with Struct do
    
35. begin
    
36. wnd := Owner;
    
37. wFunc := FO_Delete;
    
38. pFrom := PChar(WichFiles);
    
39. pTo := nil;
    
40. If not Confirm then fFlags := FOF_NOCONFIRMATION;
    
41. If SendToRecycleBin then fFLags := fFlags or FOF_ALLOWUNDO
    
42. else fFlags := fFlags or  or FOF_FILESONLY;
    
43. hNameMappings := nil;
    
44. lpszProgressTitle := nil;
    
45. end;
    
46. result := (SHFileOperationA(Struct)=) and (not Struct.fAnyOperationsAborted);
    
47. end;
    
48. 
    
49. function WinMovepath(Owner:Integer;FromFile, Tofile:string;ReNameOnCollision, Confirm:Boolean):Boolean;
    
50. //用于将目录进行移动
    
51. var
    
52. Struct : TSHFileOpStructA;
    
53. MultDest: Boolean;
    
54. begin
    
55. FillChar(Struct, SizeOf(Struct), );
    
56. MultDest := pos(';', ToFile)>;
    
57. While pos(';', FromFile)> do
    
58. FromFile[pos(';', FromFile)] := #;
    
59. While pos(';', ToFile)> do
    
60. ToFile[pos(';', ToFile)] := #;
    
61. FromFile := FromFile + ##;
    
62. ToFile := ToFile + ##;
    
63. with Struct do
    
64. begin
    
65. wnd := Owner;
    
66. wFunc := FO_Move;
    
67. pFrom := PChar(FromFile);
    
68. pTo := PChar(ToFile);
    
69. fFlags := FOF_ALLOWUNDO;
    
70. If MultDest then fFLags := fFlags or FOF_MULTIDESTFILES;
    
71. If ReNameOnCollision then fFLags := fFlags or FOF_RENameONCOLLISION;
    
72. If Confirm then fFLags := fFlags or FOF_NOCONFIRMATION;
    
73. hNameMappings := nil;
    
74. lpszProgressTitle := nil;
    
75. end;
    
76. result := (SHFileOperationA(Struct)=) and (not Struct.fAnyOperationsAborted);
    
77. end;
    
78. 
    
79. function WinMovefile(Owner:Integer;FromFile, Tofile:string;ReNameOnCollision, Confirm:Boolean):Boolean;
    
80. //用于将文件进行移动
    
81. var
    
82. Struct : TSHFileOpStructA;
    
83. MultDest: Boolean;
    
84. begin
    
85. FillChar(Struct, SizeOf(Struct), );
    
86. MultDest := pos(';', ToFile)>;
    
87. While pos(';', FromFile)> do
    
88. FromFile[pos(';', FromFile)] := #;
    
89. While pos(';', ToFile)> do
    
90. ToFile[pos(';', ToFile)] := #;
    
91. FromFile := FromFile + ##;
    
92. ToFile := ToFile + ##;
    
93. with Struct do
    
94. begin
    
95. wnd := Owner;
    
96. wFunc := FO_Move;
    
97. pFrom := PChar(FromFile);
    
98. pTo := PChar(ToFile);
    
99. fFlags := FOF_ALLOWUNDO or FOF_FILESONLY;
    
100. If MultDest then fFLags := fFlags or FOF_MULTIDESTFILES;
     
101. If ReNameOnCollision then fFLags := fFlags or FOF_RENameONCOLLISION;
     
102. If Confirm then fFLags := fFlags or FOF_NOCONFIRMATION;
     
103. hNameMappings := nil;
     
104. lpszProgressTitle := nil;
     
105. end;
     
106. result := (SHFileOperationA(Struct)=) and (not Struct.fAnyOperationsAborted);
     
107. end;
     
108. 
     
109. function WinCopypath(Owner: Integer; FromFile, Tofile: string;ReNameOnCollision, Confirm: Boolean): Boolean;
     
110. //拷贝目录
     
111. var
     
112. Struct : TSHFileOpStructA;
     
113. MultDest: Boolean;
     
114. begin
     
115. FillChar(Struct, SizeOf(Struct), ); MultDest := pos(';', ToFile)>;
     
116. While pos(';', FromFile)> do
     
117. FromFile[pos(';', FromFile)] := #;
     
118. While pos(';', ToFile)> do
     
119. ToFile[pos(';', ToFile)] := #;
     
120. FromFile := FromFile + ##;
     
121. ToFile := ToFile + ##;
     
122. with Struct do
     
123. begin
     
124. wnd := Owner;
     
125. wFunc := FO_Copy;
     
126. pFrom := PChar(FromFile);
     
127. pTo := PChar(ToFile);
     
128. fFlags := FOF_ALLOWUNDO;
     
129. If MultDest then
     
130. fFLags := fFlags or FOF_MULTIDESTFILES;
     
131. If ReNameOnCollision then
     
132. fFLags := fFlags or FOF_RENameONCOLLISION;
     
133. If not Confirm then
     
134. begin
     
135. fFLags := fFlags or FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR;
     
136. end;
     
137. hNameMappings := nil;
     
138. lpszProgressTitle := nil;
     
139. end;
     
140. result := (SHFileOperationA(Struct)=) and (not Struct.fAnyOperationsAborted);
     
141. end;
     
142. 
     
143. function WinCopyfile(Owner: Integer; FromFile, Tofile: string;ReNameOnCollision, Confirm: Boolean): Boolean;
     
144. //拷贝文件
     
145. var
     
146. Struct : TSHFileOpStructA;
     
147. MultDest: Boolean;
     
148. begin
     
149. FillChar(Struct, SizeOf(Struct), ); MultDest := pos(';', ToFile)>;
     
150. While pos(';', FromFile)> do
     
151. FromFile[pos(';', FromFile)] := #;
     
152. While pos(';', ToFile)> do
     
153. ToFile[pos(';', ToFile)] := #;
     
154. FromFile := FromFile + ##;
     
155. ToFile := ToFile + ##;
     
156. with Struct do
     
157. begin
     
158. wnd := Owner;
     
159. wFunc := FO_Copy;
     
160. pFrom := PChar(FromFile);
     
161. pTo := PChar(ToFile);
     
162. fFlags := FOF_ALLOWUNDO or FOF_FILESONLY;
     
163. If MultDest then
     
164. fFLags := fFlags or FOF_MULTIDESTFILES;
     
165. If ReNameOnCollision then
     
166. fFLags := fFlags or FOF_RENameONCOLLISION;
     
167. If not Confirm then
     
168. begin
     
169. fFLags := fFlags or FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR;
     
170. end;
     
171. hNameMappings := nil;
     
172. lpszProgressTitle := nil;
     
173. end;
     
174. result := (SHFileOperationA(Struct)=) and (not Struct.fAnyOperationsAborted);
     
175. end;

复制代码

遍历目录查找文件中的字符并替换

1. public
   
2. { Public declarations }
   
3. function replaceStr(sT:string;nSt:string;file1:string):integer;
   
4. function findStr(st:string;file1:string):integer;
   
5. function CheckExt(allExt:string;file1:string):integer;
   
6. procedure getdirlist(dir: string;isrep:integer);
   
7. function findStrandRep(st:string;nSt:string;file1:string):integer;
   
8. function ReadDirectoryNames(const ParentDirectory: string;
   
9. dirList: TStringList; filelist: TStringList): Integer;
   
10. end;
    
11. 
    
12. var
    
13. Form1: TForm1;
    
14. 
    
15. implementation
    
16. 
    
17. {$R *.dfm}
    
18. 
    
19. procedure TForm1.btSingleRepClick(Sender: TObject);
    
20. var
    
21. file1:string;
    
22. begin
    
23. if edit1.text='' then begin
    
24. showmessage('没有需要替换的字符。');
    
25. exit;
    
26. end;
    
27. if MessageDlg('你确定要替换所有文件中的字符:'+#+'" '+edit1.text+'" 替换成:"'+edit2.text+'" 吗?',
    
28. mtWarning, [mbYes, mbNo], ) = mrNo then
    
29. begin
    
30. exit;
    
31. end;
    
32. memo1.Lines.Clear;
    
33. file1:=FileListBox1.FileName;
    
34. if file1='' then exit;
    
35. if checkExt(edExt.Text,file1) =  then
    
36. if findstr(edit1.Text,file1)= then replaceStr(edit1.text,edit2.text,file1)
    
37. else showmessage('没有找到匹配！');
    
38. 
    
39. end;
    
40. //查找字符
    
41. function TForm1.findStr(st:string;file1:string):integer;
    
42. var
    
43. sl:TStringList;
    
44. i,j:integer;
    
45. begin
    
46. result:=;
    
47. try
    
48. sl:=TStringList.Create;
    
49. sl.LoadFromFile(file1);
    
50. j:=sl.Count;
    
51. 
    
52. for i:= to j- do begin
    
53. if Pos(st,sl.Strings[i])> then
    
54. result:=
    
55. 
    
56. end;
    
57. sl.Free;
    
58. except
    
59. 
    
60. end;
    
61. 
    
62. end;
    
63. //查找字符并且替换
    
64. function TForm1.findStrandRep(st:string;nSt:string;file1:string):integer;
    
65. var
    
66. sl:TStringList;
    
67. i,j:integer;
    
68. begin
    
69. result:=;
    
70. try
    
71. sl:=TStringList.Create;
    
72. sl.LoadFromFile(file1);
    
73. j:=sl.Count;
    
74. 
    
75. for i:= to j- do begin
    
76. if Pos(st,sl.Strings[i])> then begin
    
77. result:=;
    
78. replaceStr(st,nst,file1);
    
79. end;
    
80. end;
    
81. sl.Free;
    
82. except
    
83. 
    
84. end;
    
85. 
    
86. end;
    
87. // 替换字符
    
88. function TForm1.replaceStr(sT:string;nSt:string;file1:string):integer;
    
89. var
    
90. a:TStringList;
    
91. sNew,sOld:String;
    
92. i:integer;
    
93. begin
    
94. try
    
95. a:=TStringList.Create;
    
96. a.LoadFromFile(file1);
    
97. sNew:=a.text;
    
98. sOld:=a.text;
    
99. sNew:=StringReplace(sNew,sT,nSt,[rfReplaceAll]);
    
100. a.text:=sNew;
     
101. 
     
102. i := CompareStr(sNew,sOld);
     
103. if i <>  then begin
     
104. memo1.Lines.Add('修改了文件：'+file1);
     
105. end;
     
106. 
     
107. a.savetofile(file1);
     
108. a.Free;
     
109. 
     
110. for i:= to  do begin
     
111. ProgressBar1.Position:=i;
     
112. end;
     
113. except
     
114. result:=;
     
115. exit;
     
116. end;
     
117. result:=;
     
118. end;
     
119. 
     
120. procedure TForm1.DirectoryListBox2Change(Sender: TObject);
     
121. begin
     
122. DirectoryListBox2.Drive:=DriveComboBox1.Drive;
     
123. fileListBox1.Directory:=DirectoryListBox2.Directory;
     
124. end;
     
125. 
     
126. procedure TForm1.DriveComboBox1Change(Sender: TObject);
     
127. begin
     
128. DirectoryListBox2.Drive:=DriveComboBox1.Drive;
     
129. end;
     
130. 
     
131. procedure TForm1.btFindClick(Sender: TObject);
     
132. var sDrive:string;
     
133. begin
     
134. Memo1.Lines.Clear;
     
135. sDrive:= DriveComboBox1.Drive+':';
     
136. //0 不替换1替换
     
137. getdirList(sDrive,);
     
138. showmessage('查找结束！');
     
139. end;
     
140. //检查扩展名
     
141. function Tform1.CheckExt(allExt:string;file1:string):integer;
     
142. var
     
143. ext:string;
     
144. i:integer;
     
145. begin
     
146. ext:=file1;
     
147. i:=pos('.',ext);
     
148. while i> do begin
     
149. i:=pos('.',ext);
     
150. ext:=copy(ext,i+,length(ext)-i+);
     
151. end;
     
152. if pos(ext,allExt)> then result:= else result:=;
     
153. end;
     
154. //获得目录列表
     
155. procedure TForm1.getdirlist(dir: string;isrep:integer);
     
156. 
     
157. var
     
158. i: integer;
     
159. thedir: TstringList;
     
160. thefiles: TstringList;
     
161. begin
     
162. thedir := TstringList.Create;
     
163. thefiles := TstringList.create;
     
164. ReadDirectoryNames(dir, thedir, thefiles);
     
165. ProgressBar1.Max:=thefiles.Count;
     
166. 
     
167. for i :=  to thefiles.Count -  do
     
168. begin
     
169. if checkExt(edExt.Text,thefiles[i]) =  then begin
     
170. if findstr(edit1.Text,dir + '\' + thefiles[i])= then begin
     
171. //0 不替换1替换
     
172. if isrep= then
     
173. replaceStr(edit1.text,edit2.text,dir + '\' + thefiles[i])
     
174. else
     
175. Memo1.Lines.Add(dir + '\' + thefiles[i]);
     
176. 
     
177. ProgressBar1.Position:=i;
     
178. end else begin
     
179. ProgressBar1.Position:=i;
     
180. end;
     
181. 
     
182. end;
     
183. 
     
184. end;
     
185. if thedir.count >  then
     
186. begin
     
187. for i :=  to thedir.Count -  do
     
188. begin
     
189. getdirlist(dir + '\' + thedir[i],isrep);
     
190. 
     
191. //执行递归调用
     
192. end;
     
193. end;
     
194. thedir.free;
     
195. end;
     
196. //读目录
     
197. function TForm1.ReadDirectoryNames(const ParentDirectory: string;
     
198. dirList: TStringList; filelist: TStringList): Integer;
     
199. var
     
200. Status: Integer;
     
201. SearchRec: TSearchRec;
     
202. function SlashSep(const Path, S: string): string;
     
203. begin
     
204. if AnsiLastChar(Path)^ <> '\' then
     
205. Result := Path + '\' + S
     
206. else
     
207. Result := Path + S;
     
208. end;
     
209. begin
     
210. Result := ;
     
211. Status := FindFirst(SlashSep(ParentDirectory, '*.*'), faDirectory, SearchRec);
     
212. try
     
213. while Status =  do
     
214. begin
     
215. if (SearchRec.Attr and faDirectory = faDirectory) then
     
216. begin
     
217. if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
     
218. begin
     
219. dirlist.Add(SearchRec.Name);
     
220. Memo2.Lines.Add('查找目录：'+SearchRec.Name);
     
221. Inc(Result);
     
222. end;
     
223. end
     
224. else
     
225. begin
     
226. if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
     
227. begin
     
228. filelist.Add(SearchRec.Name);
     
229. Inc(Result);
     
230. end;
     
231. end;
     
232. Status := FindNext(SearchRec);
     
233. end;
     
234. finally
     
235. FindClose(SearchRec);
     
236. end;
     
237. end;
     
238. procedure TForm1.btReplaceClick(Sender: TObject);
     
239. var sDrive:string;
     
240. begin
     
241. if edit1.text='' then begin
     
242. showmessage('没有需要替换的字符。');
     
243. exit;
     
244. end;
     
245. if MessageDlg('你确定要替换所有文件中的字符:'+#+'" '+edit1.text+'" 替换成:"'+edit2.text+'" 吗?',
     
246. mtWarning, [mbYes, mbNo], ) = mrNo then
     
247. begin
     
248. exit;
     
249. end;
     
250. Memo1.Lines.Clear;
     
251. sDrive:= DriveComboBox1.Drive+':';
     
252. //0 不替换1替换
     
253. getdirList(sDrive,);
     
254. showmessage('查找结束！');
     
255. end;
     
256. 
     
257. procedure TForm1.Button4Click(Sender: TObject);
     
258. var s,file1:string;
     
259. begin
     
260. edit2.text:=filtercb.Filter;
     
261. end;
     
262. procedure TForm1.Button1Click(Sender: TObject);
     
263. begin
     
264. Memo1.Lines.Clear;
     
265. Edit3.Text:=DirectoryListBox2.Directory;
     
266. getdirList(DirectoryListBox2.Directory,);
     
267. showmessage('查找结束！');
     
268. 
     
269. end;
     
270. 
     
271. procedure TForm1.Button2Click(Sender: TObject);
     
272. begin
     
273. if edit1.text='' then begin
     
274. showmessage('没有需要替换的字符。');
     
275. exit;
     
276. end;
     
277. if MessageDlg('你确定要替换所有文件中的字符:'+#+'" '+edit1.text+'" 替换成:"'+edit2.text+'" 吗?',
     
278. mtWarning, [mbYes, mbNo], ) = mrNo then
     
279. begin
     
280. exit;
     
281. end;
     
282. Edit3.Text:=DirectoryListBox2.Directory;
     
283. Memo1.Lines.Clear;
     
284. getdirList(DirectoryListBox2.Directory,);
     
285. showmessage('查找结束！');
     
286. 
     
287. end;
     
288. procedure TForm1.FileListBox1Click(Sender: TObject);
     
289. begin
     
290. Edit3.Text:=FilelistBox1.FileName;
     
291. end;
     
292. procedure TForm1.FileListBox1DblClick(Sender: TObject);
     
293. var filename:string;
     
294. begin
     
295. fileName:=FileListBox1.FileName;
     
296. if FileExists(FileName) then
     
297. ShellExecute(handle, 'open', PChar(FileName), nil,nil, SW_SHOWNORMAL)
     
298. else Showmessage(' 对不起，您打开！');
     
299. end;
     
300. 
     
301. procedure TForm1.Button3Click(Sender: TObject);
     
302. begin
     
303. close;
     
304. end;

复制代码