文件夹拷贝
在delphi中怎样实现文件夹之间的拷贝？没有找到相应的API函数，只能自己写算法吗？ 问题点数：10、回复次数：2Top
1 楼gxgyj（杰克逊）回复于 2005-03-01 15:05:54 得分 2
ShellAPI的
SHFileOperationTop
2 楼weizi2000（秋风啊）回复于 2005-03-01 15:12:00 得分 8
procedure CopyFile(const Sour, Dest: string);
var
FileOp: TSHFileOpStruct;
begin
with FileOp do
begin
Wnd := 0;
wFunc := FO_Copy;//更换此参数可实现拷贝和更名
pFrom := PChar(Sour);
pTo := PChar(Dest);
fFlags := FOF_NoConfirmation;
fAnyOperationsAborted := False;
hNameMappings := nil;
lpszProgressTitle := nil
end;
SHFileOperation(FileOp);
end;Top
