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

本文介绍了一个使用Delphi实现的多线程应用程序案例。该应用创建了多个线程并等待它们完成，最终在主界面中显示结果。示例展示了如何通过Delphi的TThread类来管理和同步线程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

unit1

[delphi]view plaincopy 
   
 unit Unit1;  
   
 interface  
   
 uses  
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
   Dialogs, StdCtrls;  
   
 type  
   TForm1 = class(TForm)  
     btn1: TButton;  
     mmo1: TMemo;  
     procedure btn1Click(Sender: TObject);  
   private  
     { Private declarations }  
   public  
     { Public declarations }  
   end;  
   
 var  
   Form1: TForm1;  
   
     procedure ThreadTest;stdcall;  
 implementation  
   
 uses Unit2;  
   
 {$R *.dfm}  
   
   
 procedure ThreadTest;stdcall;  
 var  
     Handles:TWOHandleArray;  
     //Handle:THandle;  
     Test:TTestThread;  
     i:Integer;  
 begin  
     for i := 0 to 10 do  
     begin  
         Test := TTestThread.Create(False);  
         Handles[i] := Test.Handle;  
     end;  
     WaitForMultipleObjects( 11, @Handles, True, INFINITE );  
     Form1.mmo1.Lines.Add( '123' );  
 end;  
   
   
 procedure TForm1.btn1Click(Sender: TObject);  
 var  
     ID:Cardinal;  
 begin  
     CreateThread( nil, 0, @ThreadTest, nil, 0, ID );  
 end;  
   
   
   
 end.  

unit2

[delphi]view plaincopy 
   
 unit Unit2;  
   
 interface  
   
 uses  
   Classes;  
   
 type  
   TTestThread = class(TThread)  
   private  
     { Private declarations }  
   protected  
     procedure Execute; override;  
   end;  
   
 implementation  
   
 uses Unit1;  
   
   
 procedure TTestThread.Execute;  
 begin  
   { Place thread code here }  
   { Place thread code here }  
   //FreeOnTerminate := False;  
   form1.mmo1.Lines.Add( 'ok' );  
   
 end;  
   
 end.  