unit2.pas

Delphi6分布式开发例程 )

unit Unit2;
interface
uses
    Classes,comctrls;
type
  FreezeMeThread = class(TThread)
  private
    i:integer;
  protected
    procedure Execute; override; // Main thread execution
  published
    constructor CreateIt(TempBool:boolean);
    destructor Destroy; override;
  end;

implementation
constructor FreezeMeThread.CreateIt(TempBool:boolean);
begin
  inherited Create(TempBool);      // Create thread suspended
end;

destructor FreezeMeThread.Destroy;
begin
   inherited destroy;
end;


procedure FreezeMeThread.Execute; // Main execution for thread
var
 i : cardinal;
begin
end;
end.