快速关闭线程的DELPHI代码

时间:2010-01-26 12:53:24  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读://=========ThrdMain.pas==================varhEventDead: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;


"快速关闭线程的DELPHI代码"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12419.html


关键字:

关于《快速关闭线程的DELPHI代码》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td