学步园

 在开发过程中可以使用互斥对象控制应用程序只能打开一个进程。避免误操作或其他原因造成因同时打开多个应用程序而使数据录入或统计错误。本例是在工程单元中打开互斥对象，如果句柄为0，说明互斥对象不存在，创建互斥对象并运行程序，如果句柄大于0，说明存在互斥对象，程序直接退出，主要代码如下：
    if  OpenMutex(MUTEX_ALL_ACCESS,True,'Mutex')=0 then 
      begin 
       CreateMutex(nil,True,'Mutex'); 
       Application.Initialize; 
       Application.CreateForm(TForm1, Form1); 
       Application.Run; 
       CloseHandle(OpenMutex(MUTEX_ALL_ACCESS,True,'Mutex')); 
      end;

    使用CreateMutex函数创建互斥对象。 
    语法格式如下： 
    Handle CreateMutex( 
       LPSECURITY_ATTRIBUTES lpMutexAttributes, 
       BOOL bInitialOwner,     
       LPCTSTR lpName 
       );

    参数说明 
    lpMutexAttributes：安全属性。 
    BInitialOwner：指定互斥对象是否拥有所有者标识。值为true时，程序创建的Create Process 方法能够继承互斥对象句柄。 
    LpName：创建的互斥对象名称。 
    Return_Value：返回创建的互斥对象句柄。

    使用OpenMutex函数打开互斥对象。 
    语法格式如下： 
    Handle OpenMutex( 
       DWORD dwDesiredAccess,      // access flag 
       BOOL bInheritHandle,    // inherit flag 
       LPCTSTR lpName        // pointer to mutex-object name 
       );

    参数说明 
    dwDesiredAccess：访问标识。 
    BInheritHandle：继承标识。 
    LpName：互斥对象名称 
    Return_Value：返回打开的互斥对象句柄。