关于进度及进度条的有关问题

关于进度及进度条的问题

1、如何让进度条在状态栏里显示？

2、如何统计当前完称的比率，比如拷贝文件？

3、怎么样计算完成剩余时间？

问题只要回答了，我会按照要求给你加分！

[解决办法]
用SHFileOperation函数可以很快的就实现你要的功能了!

uses shellapi;

function CopyFile(SourceName,TargetName:String):Boolean;
var
F:TShFileOpStruct;
begin
F.wnd:=InputForm.Handle;
F.wFunc:=FO_COPY; {操作方式}
F.pFrom:=PChar(SourceName+#0#0);
F.pTo:=PChar(TargetName+#0#0);
F.fFlags:=FOF_ALLOWUNDO OR FOF_RENAMEONCOLLISION;
result:= ShFileOperation(F)=0;
end;