文件拷贝的问题(100分)

delphi提供的copytofile和API的copyfile函数好象只支持单个文件的拷贝，我想写一个支持文件通配符（*和?）的文件拷贝函数应怎么办呢？

用 SHFileOperation

你应该先搜索一把， 早有回答。

我问过的一个问题
http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=203075

用流可以吗？？

cheka:我还不是很明白，你的SourceName,TargetName支持(*和?)吗?

支持的，详细请见SDK帮助。

再粘贴一次吧！
用以下函数实现类似于xcopy功能。
Uses ShellAPI
function Win_XCOPY(fFROM,fTO:String):boolean;
var FData : TShFileOpStruct;
begin
Fdata.pFrom := PChar(fFrom+#0#0); //设立数据源路径和文件、目录名,支持(?, *通配符)
fdata.pTo := PChar(fTo+#0#0); //设立目标路径
fdata.wFunc := FO_COPY ; //设立操作方式
//FO_COPY 拷贝操作 相当于 XCOPY
//FO_MOVE 移动操作 相当于 MOVE
//FO_DELETE 删除操作 相当于 DELTREE
FData.Wnd := self.Handle ;
fData.lpszProgressTitle := 'Wait'; //设立提示窗标题
fData.fFlags := FOF_ALLOWUNDO OR FOF_NOCONFIRMMKDIR; //设定操作选项
result:=ShFileOperation( FData ) = 0 ;
end;

多人接受答案了。