Delphi 实现检测线程类TThread是否结束

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls;

type

  TMY = class(TThread)

  public                                                                              ThreadEnd:boolean;

    constructor create(); overload;

    destructor Destroy(); overload;

    procedure execute; override;

  end;

  TForm1 = class(TForm)

    Button1: TButton;

    Panel1: TPanel;

    Button2: TButton;

    Panel2: TPanel;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

    My: TMY;

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

constructor TMY.create();

begin

  ThreadEnd :=False;

 FreeOnTerminate := True;

inherited Create(False);

end;

destructor TMY.Destroy();

begin

inherited Destroy;

end;

procedure TMY.execute;

var i: Integer;

begin

for i :=  to  do

 begin

  Sleep();

  Form1.Panel1.Caption := IntToStr(i); end;

  ThreadEnd :=True;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  My := TMY.create;// 执行线程

end;

procedure TForm1.Button2Click(Sender: TObject);

var I:Cardinal;

Isquit:Boolean;

begin Isquit:=GetExitCodeThread(My.handle,i) ;//检查线程是否结束

if Isquit then Button2.Caption:='True' else Button2.Caption:='False';

 // My.ThreadEnd=True 也可以确定线程结束。

end;

end.