DELPHI6关于文件问题解决者有分

Question

我要在程序中加文件备份和恢复功能，基本意思是文件的复制(注：文件的批量复制)
也就是给出源路径和目的路径，备份：就能把源路径中的所有文件放入目的路径中。
   恢复就是目的路径文件覆盖源路径中的现有同名文件。
请问得怎么实现？希望Delphi高手能给我指点一二，问题解决者有分本人十分感谢!

Answer 1

procedure TForm1.Button3Click(Sender: TObject);
var
  OpStruc:TSHFileOpStruct;
  FromBuf,ToBuf:Array[0..128] of Char;
begin
  FillChar(FromBuf,Sizeof(FromBuf),0);
  FillChar(ToBuf,Sizeof(ToBuf),0);
  //用0初始化FromBuf和ToBuf数组
  StrPCopy(FromBuf,Pchar(Edit1.Text));
  StrPCopy(ToBuf,Pchar(Edit2.Text));
  //分别在 FromBuf和ToBuf数组中填入操作的源目录及目标目录
  //开始填充OpStruc记录
  with OpStruc do
  begin
    Wnd:=Handle;
    wFunc:=FO_COPY;
  //复制操作
    pFrom:=@FromBuf;
    pTo:=@ToBuf;
    fFlags:=FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
    fAnyOperationsAborted:=False;
    hNameMappings:=nil;
    lpszProgressTitle:=nil;
  end;
  if SHFileOperation(OpStruc)=0 then
 //函数执行成功
  MessageBox(Handle,'复制完毕。','复制信息',MB_OK+MB_ICONINFORMATION);
end;

Answer 2

xiaoqiang123(xiaoqiang) 我试了试你写的过程，不能编译 呀!OpStruc:TSHFileOpStruct;这是做什么的？是不是还要在要在开头定义什么库文件名啊!!

Answer 3

copy from Clippboard??
这就够了!