Delphi控件源码

开发平台：

C++ Builder

threadcopy.pas：源码内容

							unit threadcopy;
interface
uses
  Classes, Windows;
type
  { CThreadCopy }
  CThreadCopy = class(TThread)
  private
    { Private-Deklarationen }
    strOld, strNew : string;
    bOverwr : WordBool;
  protected
    procedure Execute; override;
    procedure Copy(var strOldFile : string; var strNewFile : string; bOverwrite : WordBool); virtual; abstract;
  public
    constructor Create(var strOldFile : string; var strNewFile : string; bOverwrite : WordBool);
  end;
  { TCopyFile }
  TCopyFile = class(CThreadCopy)
  protected
    procedure Copy(var strOldFile : string; var strNewFile : string; bOverwrite : WordBool); override;
  end;
implementation
{ CThreadCopy }
procedure CThreadCopy.Execute;
begin
  { Thread code }
  Copy(strOld, strNew, bOverwr);
end;
constructor CThreadCopy.Create(var strOldFile : string; var strNewFile : string; bOverwrite : WordBool);
begin
  strOld := strOldFile;
  strNew := strNewFile;
  bOverwr := bOverwrite;
  FreeOnTerminate := True;
  inherited Create(False);
end;
{ TCopyFile }
procedure TCopyFile.Copy(var strOldFile : string; var strNewFile : string; bOverwrite : WordBool);
begin
  CopyFile(PChar(strOldFile), PChar(strNewFile), bOverwrite);
end;
end.

						