unit1.pas

线程同步代码集很经典

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  EventHandle: THandle; {事件句柄}
  ThreadHandle: THandle; {线程句柄}
implementation

{$R *.DFM}

function ThreadFunction(Info: Pointer): Integer; stdcall;
var
  FormDC: HDC;
  Counter: Integer;
  CounterStr: string;
  ObjRtn: Integer;
begin
  ObjRtn := WaitForSingleObject(EventHandle, INFINITE);
  FormDC := GetDC(Form1.Handle);
  for Counter := 1 to 100000 do
  begin
    CounterStr := IntToStr(Counter);
    TextOut(FormDC, 10, 10, PChar(CounterStr), Length(CounterStr));
    Application.ProcessMessages;
    ObjRtn := WaitForSingleObject(EventHandle, INFINITE);
  end;
  ReleaseDC(Form1.Handle, FormDC);
  ExitThread(4);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ThreadID: Dword;
begin
  ThreadHandle := CreateThread(nil, 0, @ThreadFunction, nil, 0, ThreadId);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  SetEvent(EventHandle);
  Label1.Caption := 'Event is signaled';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  ResetEvent(EventHandle);
  Label1.Caption := 'Event is non signaled';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  PulseEvent(EventHandle);
  Label1.Caption := 'signaled/nonsignaled';
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  EventHandle := CreateEvent(nil, True, False, 'MyEvent');
end;

end.