我要在拷贝文件时用进度条控件显示拷贝进度该怎么做?
我的拷贝程序如下:
procedure TForm1.Button1Click(Sender: TObject);
var
S,T: TFileStream; {文件流}
SourceFileName,DestFileName:String;{源文件和目的文件名}
IniFile:TIniFile;
FileName:string;
begin
SourceFileName:='\\fornet-177\update\demo.txt';
DestFileName:='d:\test.txt';
S:=TFileStream.Create(SourceFileName, fmOpenRead );
try
T:= TFileStream.Create(DestFileName,fmOpenWrite or fmCreate );
try
T.CopyFrom(S,S.Size);
T.Free;
showmessage('拷贝成功!');
except
showmessage('拷贝失败,请手工拷贝!');
end;
S.Free;
except
showmessage('拷贝失败,请手工拷贝!');
end;
end;