1.線程代碼:procedure TTest.Execute;vari:integer;begin{ Place thread code here }OnTerminate:=Form1.Done;if WaitForSingleObject(HMux,INFINITE)=WAIT_OBJECT_0 thenbeginfor i:= 1 to 128 dobeginGarry[i]:=form1.Getnum();sleep(5);end;end;//ReleaseMutex(HMux);end;end.2.主體procedure TForm1.Button1Click(Sender: TObject);beginHMux:=CreateMutex(nil,false,nil);TTest.Create(false);TTest.Create(false);end;請高手解釋下WaitForSingleObject 在不使用//ReleaseMutex(HMux); 釋放互斥體的情況下 程序應該一直把線程#2休眠,函數一直沒有返回才對
2 回答

吃雞游戲
TA貢獻1829條經驗 獲得超7個贊
你把ReleaseMutex(HMux)這個語句放在了線程最后,寫了跟沒寫一樣,寫了它會執行完線程后釋放互斥對象,沒寫它也會在執行完線程后釋放互斥對象。
但是如果你把ReleaseMutex(HMux)語句放在線程執行代碼中間的話,第一個線程沒執行完就會釋放互斥對象,然后第二個線程就在第一個線程沒執行完的情況下被激活,如果第一個線程的公共資源還沒釋放,第二個線程爭搶公共資源就會出現問題(發生死鎖或直接報錯)!
希望我的回答能對你有所幫助?。。?!

慕慕森
TA貢獻1856條經驗 獲得超17個贊
不是很清楚你的意圖,
不過你的第一個線程雖然沒有ReleaseMutex,但是線程自己已經結束,估計對應的互斥也沒有了,所以第二個線程開始運行。
另外互斥好像是進程級的。
- 2 回答
- 0 關注
- 113 瀏覽
添加回答
舉報
0/150
提交
取消