可以自己写代码来实现呀：（抄别人的）
procedure copy(soure,destination:string);
var
a,b: file of byte;
buf:array[0..10] of char;
mun:integer;
length:longint;
begin
progressbar1.Visible:=true;
assignfile(a,soure);
reset(a);
assignfile(b,destination);
rewrite(b);
length:=filesize(a);
with ProgressBar1 do begin
min:=0;
max:=length;
while length>0 do begin
blockread(a,buf[0],sizeof(buf),mun);
length:=length-mun;
blockwrite(b,buf[0],mun);
position:=position+mun;
end;
closefile(a);
closefile(b);
renamefile(destination,edfileName.Text);
end;
end;
搂主，看看，不懂给我发邮件
