delphi 中使用WaitForMultipleObjects等待线程执行，再执行后续代码

unit1

[delphi]  view plain  copy

1. unit Unit1;  
2.   
3. interface  
4.   
5. uses  
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
7.   Dialogs, StdCtrls;  
8.   
9. type  
10.   TForm1 = class(TForm)  
11.     btn1: TButton;  
12.     mmo1: TMemo;  
13.     procedure btn1Click(Sender: TObject);  
14.   private  
15.     { Private declarations }  
16.   public  
17.     { Public declarations }  
18.   end;  
19.   
20. var  
21.   Form1: TForm1;  
22.   
23.     procedure ThreadTest;stdcall;  
24. implementation  
25.   
26. uses Unit2;  
27.   
28. {$R *.dfm}  
29.   
30.   
31. procedure ThreadTest;stdcall;  
32. var  
33.     Handles:TWOHandleArray;  
34.     //Handle:THandle;  
35.     Test:TTestThread;  
36.     i:Integer;  
37. begin  
38.     for i := 0 to 10 do  
39.     begin  
40.         Test := TTestThread.Create(False);  
41.         Handles[i] := Test.Handle;  
42.     end;  
43.     WaitForMultipleObjects( 11, @Handles, True, INFINITE );  
44.     Form1.mmo1.Lines.Add( '123' );  
45. end;  
46.   
47.   
48. procedure TForm1.btn1Click(Sender: TObject);  
49. var  
50.     ID:Cardinal;  
51. begin  
52.     CreateThread( nil, 0, @ThreadTest, nil, 0, ID );  
53. end;  
54.   
55.   
56.   
57. end.  

 

unit2

[delphi]  view plain  copy

1. unit Unit2;  
2.   
3. interface  
4.   
5. uses  
6.   Classes;  
7.   
8. type  
9.   TTestThread = class(TThread)  
10.   private  
11.     { Private declarations }  
12.   protected  
13.     procedure Execute; override;  
14.   end;  
15.   
16. implementation  
17.   
18. uses Unit1;  
19.   
20.   
21. procedure TTestThread.Execute;  
22. begin  
23.   { Place thread code here }  
24.   { Place thread code here }  
25.   //FreeOnTerminate := False;  
26.   form1.mmo1.Lines.Add( 'ok' );  
27.   
28. end;  
29.   
30. end.