文件（夹）复制、删除、重命名

1. //------------------------------------------------------------------------------
2. // 删除目录
3. //------------------------------------------------------------------------------
5. function DelDirectory(const Source: string): boolean;
6. var
7.   fo: TSHFILEOPSTRUCT;
8. begin
9.   FillChar(fo, SizeOf(fo), 0);
10.   with fo do
11.   begin
12.     Wnd := 0;
13.     wFunc := FO_DELETE;
14.     pFrom := PChar(source + #0);
15.     pTo := #0#0;
16.     fFlags := FOF_NOCONFIRMATION + FOF_SILENT;
17.   end;
18.   Result := (SHFileOperation(fo) = 0);
19. end;
21. //------------------------------------------------------------------------------
22. // 复制目录
23. //------------------------------------------------------------------------------
25. function CopyDirectory(const Source, Dest: string): boolean;
26. var
27.   fo: TSHFILEOPSTRUCT;
28. begin
29.   FillChar(fo, SizeOf(fo), 0);
30.   with fo do
31.   begin
32.     Wnd := 0;
33.     wFunc := FO_COPY;
34.     pFrom := PChar(source + #0);
35.     pTo := PChar(Dest + #0);
36.     fFlags := FOF_NOCONFIRMATION + FOF_NOCONFIRMMKDIR;
37.   end;
38.   Result := (SHFileOperation(fo) = 0);
39. end;
41. //------------------------------------------------------------------------------
42. // 重新命名目录     RenDirectory('d:/wt2','d:/bcde');
43. //------------------------------------------------------------------------------
45. function RenDirectory(const OldName, NewName: string): boolean;
46. var
47.   fo: TSHFILEOPSTRUCT;
48. begin
49.   FillChar(fo, SizeOf(fo), 0);
50.   with fo do
51.   begin
52.     Wnd := 0;
53.     wFunc := FO_RENAME;
54.     pFrom := PChar(OldName + #0);
55.     pTo := pchar(NewName + #0);
56.     fFlags := FOF_NOCONFIRMATION + FOF_SILENT;
57.   end;
58.   Result := (SHFileOperation(fo) = 0);
59. end;
61. //------------------------------------------------------------------------------
62. // 复制多个文件
63. //------------------------------------------------------------------------------
65. function CopyFiles(const Source, Dest: string): boolean;
66. var
67.   fo: TSHFILEOPSTRUCT;
68. begin
69.   FillChar(fo, SizeOf(fo), 0);
70.   with fo do
71.   begin
72.     Wnd := 0;
73.     wFunc := FO_COPY;
74.     pFrom := @source[1];
75.     pTo := pchar(dest);
76.     fFlags := FOF_NOCONFIRMATION + FOF_NOCONFIRMMKDIR;
77.   end;
78.   Result := (SHFileOperation(fo) = 0);
79. end;
82. procedure TForm1.Button1Click(Sender: TObject);
83. var
84.   str: string;
85.   i: integer;
86. begin
87.   if opendialog1.Execute then
88.   begin
89.     for i := 0 to OpenDialog1.Files.Count - 1 do
90.       str := str + OpenDialog1.Files.strings[i] + #0;
91.     showmessage(str);
92.     str := str + #0;
93.     CopyFiles(str, 'd:/temp');
94.   end;
95. end;

注：需要引用ShellAPI单元