delphi ÔÚ¶àÏß³ÌÇé¿öϲ»»á±¨´í

Ï̴߳úÂë
Delphi(Pascal) code:

unit Unit2;

interface

uses
SysUtils,
Classes,IdGlobal;

type
TTestThread = class(TThread)
private

protected
procedure Execute; override;

public
end;

implementation

procedure TTestThread.Execute;
begin
FreeOnTerminate := True ;
raise Exception.Create('bbbbbbbbbaaaaa');
end;

end.




ÔÚÖ÷³ÌÐòµ÷ÓÃ
var
  vThread : TTestThread;
begin
    vThread :=  TTestThread.Create(True) ;
    vThread.Resume;


±àÒëÖ´ÐУ¬²»»á±¨³ö´íÎ󣬱»ÆÁ±Î

---

²»¶®

---

//ÎÒ²âÊÔ¿ÉÒÔ°¢£¬delphi 7,xpÏÂ
unit MainThread;

interface
uses  Classes,Windows,activeX,Comobj,SysUtils;


type
  TTestThread = class(TThread)
    private
    protected
      procedure execute;override;
    public
      constructor create;

  end;

implementation

{ TTestThread }

constructor TTestThread.create;
begin
  inherited create(false);
  FreeOnTerminate:=true;
end;

procedure TTestThread.execute;
begin
  raise Exception