资源名称如何快速关闭线程 wxh zt

wxhwhmanshan

                  简介//创建线程
                  var
                  Thread_Main:ThrdMain ;(调用自我创建的线程对象)

                  .....

                  Thread_Main:=ThrdMain.Create ;

                  //关闭线程
                  Thread_Main.WaitEventDead ;
                  Thread_Main.WaitFor ;
                  //=======================ThrdMain.pas==============================
                  var
                  hEventDead:Thandle;
                  constructor ThrdMain.Create;
                  begin
                  hEventDead := CreateEvent(0,true,False,‘SMSdesktop‘);//创建对象事件
                  inherited Create(False);
                  end;
                  //创建对象关闭事件
                  function ThrdMain.WaitEventDead: Boolean;
                  begin
                  Gbl_ReadSMS:=False;
                  WaitForSingleObject(hEventDead,500);//表示在0.5秒内强制关闭
                  end;