delphi判斷執行緒狀態函式
來源:https://www.cnblogs.com/azhqiang/p/3955490.html
//判斷執行緒是否釋放
//返回值: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;
來源:https://zhidao.baidu.com/question/486040041.html
判斷執行緒是否存在使用:
if Assigned(workthread) then
begin
//do work
end;
釋放執行緒使用:
可以使執行緒物件自動釋放,使用:workthread.FreeOnTerminate :=True;
如果想自己釋放執行緒則應該先判斷執行緒是否存在和是否結束然後再釋放,使用:
if Assigned(workthread) and (not workthread.Finished) then
begin
//workthread.terminate; //停止執行緒
//workthread.suspended; //使執行緒暫停
以上兩種都可以,如果使用Terminate則應該等待執行緒完全結束
workthread.Free; //釋放執行緒
end;