unit2.~pas

Delphi6分布式开发例程 )

unit Unit2;

interface
type
    FreezeMeThread = class(TThread)
    private
    protected
        procedure Execute:override;
    end;
var
//    FreezeMeThread,HoldMeThread:MyThread;

implementation

end.