delphi 线程互斥

互斥非常类似于临界区，除了两个关键的区别：首先，互斥可用于跨
进程的线程同步。其次，互斥能被赋予一个字符串名字，并且通过引用此
名字创建现有互斥对象的附加句柄。
提示 临界区与事件对象(比如互斥对象)的最大的区别是在性能上。临
界区在没有线程冲突时，要用1 0 ~ 1 5个时间片，而事件对象由于涉及到
系统内核要用400~600个时间片。

可以调用函数CreateMutex()来创建一个互斥量。下面是函数的声明：

function CreateMutex(lpMutexAttributes: PSecurityAttributes; bInitialOwner: BOOL; lpName: LPCWSTR): THandle;

lpMutexAttributes参数为一个指向SecurityAttributes记录的指针。此参数通常设为0，表示默认的
安全属性。
bInitialOwner参数表示创建互斥对象的线程是否要成为此互斥对象的拥有者。当此参数为False时，
表示互斥对象没有拥有者。
lpName参数指定互斥对象的名称。设为nil表示无命名，如果参数不是设为nil，函数会搜索是否有
同名的互斥对象存在。如果有，函数就会返回同名互斥对象的句柄。否则，就新创建一个互斥对象并
返回其句柄。
当使用完互斥对象时，应当调用CloseHandle()来关闭它.

例：

unit CriticaSection;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Gr