请问：用什么函数能作出windows的那种拷贝文件效果？谢~

Question

如题

Answer 1

用SHFileOperation来实现进度条的显示uses ShellAPI;var
  FileOpStruct :TSHFileOpStruct;
  Buf1 :array [0..127] of Char;
  Buf2 :array [0..127] of Char;
  Str1,Str2 :String;
begin
  Str1 :='c:\tyn1';
  Str2 :='c:\tyn2';
  FillChar(Buf1,SizeOf(Buf1),0);
  FillChar(Buf2,SizeOf(Buf2),0);
  StrPCopy(Buf1,Str1);
  StrPCopy(Buf2,Str2);
  with FileOpStruct do
  begin
    Wnd :=Handle;
    wFunc :=FO_COPY;
    pFrom :=@Buf1;
    pTo :=@Buf2;
    fFlags :=FOF_SIMPLEPROGRESS;
    fAnyOperationsAborted :=False;
    hNameMappings :=nil;
    lpszProgressTitle :='拷贝文件';
  end;
  SHFileOperation(FileOpStruct);
end;

Answer 2

记得Uses ShellAPI
SHFileOperation
上面说得很清楚了