本文整理自网络,侵删。
procedure TForm1.mycopyfile(sourcef,targetf:string);
var
FromF, ToF: file;
NumRead, NumWritten: Integer;
Buf: array[1..2048] of Char;
n:integer;
begin
AssignFile(FromF, sourcef);
Reset(FromF, 1); { Record size = 1 }
AssignFile(ToF,targetf); { Open output file }
Rewrite(ToF, 1); { Record size = 1 }
n:=0;
repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
form1.label1.caption:=IntToStr(sizeof(buf)*n*100 div FileSize(FromF))+'100%';
application.ProcessMessages;
//显示进度
BlockWrite(ToF, Buf, NumRead, NumWritten);
inc(n);
until (NumRead = 0) or (NumWritten <> NumRead);
form1.Label1.Caption:='100%';
CloseFile(FromF);
CloseFile(ToF);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
mycopyfile('e:\123.zip','c:\123.zip');
end;
相关阅读 >>
Delphi 怎样判断spinedit在微调时值是增加还是减少了
Delphixe7关于android 检测屏幕是否处于关闭状态
Delphi读取radiogroup选中按钮的string文本
Delphi ioutils 单元(5): tdirectory.tdirectory 的其他功能
Delphi removeinvalid截取字符串某个字符前面的字符
更多相关阅读请进入《Delphi》频道 >>