怎么把任何类型的文件实行复制,如把C:\aa\abc.mdb复制到d:\bb\dd.mdb呢?
解决方案 »
- 用sql查询第二条以后的数据
- 关于在MEMO或RICHEDIT将读入文件一个字一个字显示的问题
- 闰年是这么算吗?
- delphi6.0的画图问题?
- 如何判断数据库是否有同名的表存在呀?
- 谁有fastreport的下载网址?
- 在DELPHI 中如何申请动态空间,如何建立链表?
- delphi 安装程序如何将SQL Server和后台数据库打包发行?(分不够可以再开帖给分)
- 那里有"ADOExpress Update Pack 1"给43分
- 是什么错误?[Fatal Error] XXX.dpr(1): file not found: 'System.pas'
- 请教Delphi7的时间函数
- 招聘一个开发,女性,1人
var
OpStruc:TSHFileOpStruct;
FromBuf,ToBuf:Array[0..128] of Char;
begin
try
FillChar(FromBuf,Sizeof(FromBuf),0);
FillChar(ToBuf,Sizeof(ToBuf),0);
StrPCopy(FromBuf,Pchar(strSourFilePath));
//strSourFilePath
StrPCopy(ToBuf,Pchar(DeFieldpath));
with OpStruc do
begin
Wnd:=handle;
wFunc:=FO_COPY;
pFrom:=@FromBuf;
pTo:=@ToBuf;
fFlags:=FOF_NOCONFIRMATION or FOF_MULTIDESTFILES or FOF_SIMPLEPROGRESS;// or FOF_RENAMEONCOLLISION;
fAnyOperationsAborted:=False;
hNameMappings:=nil;
lpszProgressTitle:=nil;
end;
if SHFileOperation(OpStruc)=0 then
begin
end;
except
raise Exception.Create('错误');
end;
end;
BOOL CopyFile(
LPCTSTR lpExistingFileName,// pointer to name of an existing file
LPCTSTR lpNewFileName, // pointer to filename to copy to
BOOL bFailIfExists // flag for operation if file exists
);