如何实现一个应用程序只能打开一个进程
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：互斥对象名称
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
