tDead:Thandle; constructor ThrdMain.Create; begin hEventDead := CreateEvent(0,true,False,‘SMSdesktop‘);//创建对象事件 inherited Create(False); end; //创建对象关闭事件 function ThrdMain.WaitEventDead: Boolean; begin //创建线程 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;
多线程的检查,与关闭线程 多线程的检查 与关闭线程 procedure TDemoThread.Execute; begin inherited; if Assigned(FOnHintText) then FOnHintText(Self); end; procedure TForm1.ShowThreadDemo(Sender: TObject); var i: Integer; begin for i := 0 to 1000 do begin Memo1.Lines.Add(IntToStr(i)); end; end; procedure TForm1.Button2Click(Sender: TObject); var vI: DWord; IsQuit: Boolean; begin Demo := TDemoThread.Create(True); //True:创建时不启动线程 Demo.FreeOnTerminate := True; //设置程结束时自动释放 Demo.FOnHintText := ShowThreadDemo; //Demo.OnTerminate:= ShowThreadDemo; Demo.Resume; //启劫线程 end; procedure TForm1.FormDestroy(Sender: TObject); var vI: DWord; IsQuit: Boolean; begin if Demo &;lt;&;gt; nil then begin vi := CheckThreadFreed(Demo); //检查当前线程是否在执行 if (vi = 1) or (vi = 2) then TerminateThread(Demo.Handle, vi); //如果线程在执行则强行退出 Demo.Free; end; {if Demo<> nil then begin Demo.Terminate ; Demo.WaitFor ; end;} //等待线程结束,并终止它
end; procedure TForm1.Button1Click(Sender: TObject); begin Demo.Free; end; procedure TForm1.Button4Click(Sender: TObject); var
vI: DWord; IsQuit: Boolean; begin //判断当前线程的状态 vI := CheckThreadFreed(Demo); ShowMessage(IntToStr(vI)); end;