zoukankan      html  css  js  c++  java
  • delphi判断线程状态函数(使用GetExitCodeThread API函数去判断线程的句柄)

    //判断线程是否释放
    //返回值:0-已释放;1-正在运行;2-已终止但未释放;
    //3-未建立或不存在

    function CheckThreadFreed(aThread: TThread): Byte;
    var
       i: DWord;
       IsQuit: Boolean;
    begin
       if Assigned(aThread) then
       begin
          IsQuit := GetExitCodeThread(aThread.Handle, i);
          if IsQuit then //If the function succeeds, the return value is nonzero.
                                     //If the function fails, the return value is zero.
          begin
             if i = STILL_ACTIVE then //If the specified thread has not terminated,
                                     //the termination status returned is STILL_ACTIVE.
                Result := 1
             else
                Result := 2; //aThread未Free,因为Tthread.Destroy中有执行语句
          end
          else
             Result := 0; //可以用GetLastError取得错误代码
       end
       else
          Result := 3;
    end;

    http://www.cnblogs.com/azhqiang/p/3955490.html

  • 相关阅读:
    正则表达式常用收集
    IIS 部署nodejs
    借助svn进行半自动多台服务器上线部署
    快速开发window服务器程序
    sql server 存储过程解密
    EF 剥坑
    测试常规需要测试的东西
    html5本次存储几种方式
    log4net 写日志配置
    js 获取定位信息
  • 原文地址:https://www.cnblogs.com/findumars/p/7147699.html
Copyright © 2011-2022 走看看