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

北环阳光

于 2012-12-05 11:19:50 发布

阅读量7.4k

点赞数

分类专栏： Delphi学习

本文链接：https://blog.csdn.net/lotusyangjun/article/details/8259100

版权

本文介绍了如何在Delphi中使用WaitForMultipleObjects函数等待多个线程执行完毕，确保后续代码在所有线程完成后再运行。在示例中，程序创建了11个线程，每个线程输出'OK'，最后主线程输出'123'，显示了正确的线程同步效果。

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

unit1

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, @

最低0.47元/天解锁文章