采用线程方式拷贝文件（夹）Delphi使用自带的进度条显示进度

采用线程方式通过进度条显示拷贝文件或者文件夹。由于进度条控件可能为第三方控件，该控件显示进度可以由TCopyThreadEx重新申明进度条为何种进度条（也就是非Delphi自带的默认进度条），申明方法具体参阅基类TThreadEx和TBaseThreadEx那些protected函数申明，只要在TCopyThreadEx重新申明关联新的进度条控件即可。编译环境：Delphi7，本例全部使用Delphi7默认控件。