Delphi多线程学习（7）：事件Event

Event事件用法与Mutex差不多，但它可以使用：SetEvent（启动运行）ResetEvent（暂停运行）、PulseEvent（执行一次后立即暂停）。
       先看一下创建函数：CreateEvent(
                                       lpEventAttributes: PSecurityAttributes;
                                       bManualReset: BOOL;    
                                       bInitialState: BOOL; 
                                       lpName: PWideChar ): THandle; stdcall;
（lpEventAttributes参数，指向TSecurityAttributes记录的指针，一般可以缺省填入nil值；
   bManualReset参数，是否可手动暂停，True为可手动，False为事件对象控制一次后将立即暂停；
   bInitialState参数，初始状态，True为事件对象创建后处可运行状态，False为暂停状态；
   lpName参数，事件的名称；
   返回值为句柄。）
例子代码：
{主窗体代码}
unit Unit2;

interface

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

type
TForm2 = class(TForm)
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
btnSetEvent: TButton;
btnResetEvent: TButton;