实现一个应用程序只能打开一个进程

最新推荐文章于 2023-02-13 10:03:39 发布

Dcdu

最新推荐文章于 2023-02-13 10:03:39 发布

阅读量1.3k

点赞数

文章标签： attributes access

本文介绍如何使用互斥对象确保应用程序仅运行一个实例，避免数据录入或统计错误。通过创建或打开互斥对象来检查是否已有实例正在运行。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在开发过程中可以使用互斥对象控制应用程序只能打开一个进程。避免误操作或其他原因造成因同时打开多个应用程序而使数据录入或统计错误。本例是在工程单元中打开互斥对象，如果句柄为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：返回打开的互斥对象句柄。