采用線程方式通過進度條顯示拷貝文件或者文件夾。由于進度條控件可能為第三方控件，該控件顯示進度可以由TCopyThreadEx重新申明進度條為何種進度條（也就是非Delphi自帶的默認進度條），申明方法具體參閱基類TThreadEx和TBaseThreadEx那些protected函數申明，只要在TCopyThreadEx重新申明關聯新的進度條控件即可。編譯環境：Delphi7，本例全部使用Delphi7默認控件。