能不能判斷執行緒的狀態,是執行,還是掛起呀?怎樣得知執行緒結束了?
我做了一個執行緒佇列,用佇列管理執行緒,可是無法得知哪個執行緒是否結束了,然後讓結束了的執行緒重新啟動?
Obj: TQueryThread
用delphi的TThread類實現
用什麼方法可知執行緒結束了,我用執行緒控制代碼,有的執行緒結束了,但控制代碼不是0
請問用什麼方法判斷執行緒結束了?然後重啟結束的執行緒

樓上的一些方法都說了，我多說一點

根據WIN32平臺核心物件的一些原則

執行緒在仍然活動時，核心物件處於未通知狀態，執行緒中止時，處於通知狀態，所以可以根據執行緒控制代碼配合等待函式來做

給你寫了一個例子：隨手寫的程式碼，僅用來演示，實際使用時要注意一些細節。
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

TTestThread=class(tthread)//被測試執行緒，僅僅是將窗體的caption從0變到10000
protected
procedure Execute;override;
end;
TmThread = class(tthread)//檢測執行緒，當被側執行緒中止時，顯示一個對話款
protected
procedure Execute;override;
end;

var
Form1: TForm1;
t : TTestThread;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
t := TTestThread.Create(false);
TmThread.Create(false);
end;

{ TTestThread }

procedure TTestThread.Execute;
var
i : integer;
begin
FreeOnTerminate := true;
for i := 0 to 10000 do
Form1.Caption := Format('%d',[i]);

end;

{ TmThread }

procedure TmThread.Execute;
begin
if WaitForSingleObject(t.Handle,INFINITE)=WAIT_OBJECT_0 then
ShowMessage('執行緒已經中止');

end;

end.  

delphi 執行緒作了封裝哦, 不但可以在 windows 平臺下跑, 也能在 linux 下跑的, 好的程式碼不要去用 API, TThread 本身封裝了些屬性, 這樣裝了 crossKyrix 後, 可以直接編譯成 linux 執行檔案

property Suspended 暫停
property Terminated 中止
function WaitFor 阻塞等執行緒結束, 代替 WaitForSingleObject, 返回結果是相同的

看到前面提到 FreeOnTerminate 應小注意一下, 這種執行緒是不受控的, 一般是那種暫態的, 做完後不需去了解狀態的執行緒, FreeOnTerminate = true 時, 執行緒屬性是不應該去訪問的，在建立時設什麼就是什麼, 因為執行緒隨時可能被釋放, 因此極難作收集管理用