Question

请问如何实现一个应用程序只能打开一个进程

Answer 1

在开发过程中可以使用互斥对象控制应用程序只能打开一个进程。避免误操作或其他原因造成因同时打开多个应用程序而使数据录入或统计错误。本例是在工程单元中打开互斥对象，如果句柄为0，说明互斥对象不存在，创建互斥对象并运行程序，如果句柄大于0，说明存在互斥对象，程序直接退出，主要代码如下：
if OpenMutex(MUTEX_ALL_ACCESS,True,'Mutex')=0 thenbeginCreateMutex(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：互斥对象名称