请问delphi7有没有自带这样的函数？找服装店记账软件

仓库管理软件版1楼: 就是实现文件夹的复制（包括文件夹下的子文件）？比如把这个文件‘c:＼b1’复制到‘d:＼’
我查了以前的离线数据，没有得到很好的答案。

2楼: 在我的印象中，好像没有。不过，有文件复制；还有路径的提取等等函数；一样可以实现你所说的问题。可以解决的！如服装店记账软件

3楼: 没有直接的函数。
以下供参考：
uses shellAPI;
procedure TForm1.Button1Click(Sender: TObject);
var
lpFileOp: TSHFileOpStruct;
begin
with lpFileOp do
begin
Wnd:=Self.Handle;
wfunc:=FO_COPY;
pFrom:=pchar(＇＇C:＼AAA＇＇);
pTo:=pchar(＇＇D:＼AAA＇＇);
fFlags:=FOF_ALLOWUNDO;
hNameMappings:=nil;
lpszProgressTitle:=nil;
fAnyOperationsAborted:=True;
end;
if SHFileOperation(lpFileOp)<>0 then
ShowMessage(＇＇删除失败＇＇);
end;