程序中互斥的实现

今日收获：

    一说到互斥，我们首先想到最简单的可能就是单例模式。但我们平常用的最多的就是进程的互斥，所以如果要实现一个应用程序只能创建一个的话，可以使用互斥的知识来实现。

    这里我们说一下Delphi中关于互斥的实现，

 

// 创建互斥量
HANDLE m_hMutex = CreateMutex(NULL, FALSE, "Sample07");
// 检查错误代码
if (GetLastError() == ERROR_ALREADY_EXISTS) {
　// 如果已有互斥量存在则释放句柄并复位互斥量
　CloseHandle(m_hMutex);
　m_hMutex = NULL;
　// 程序退出
　return FALSE;
}

 

主要是采用CreateMutex函数进行实现，每次创建窗体的时候可以采用createMutex判断进程是否已存在，如果已存在，则提示后退出即可。

 

扩展思考：

    用到最多的就是进程的互斥访问控制。可以对资源进行控制。当多个进程访问同一个资源时，可以为该资源添加锁，如果该锁存在，则其他进程不能访问该资源。

昨日遗留：

  非模态窗体被focus的时候数据的刷新。可以再onactivate函数中实现数据的刷新，还有可能就是数据刷新了但未显示出来。例如TGrandViewGrid就显示不出刷新的数据，但是如果将某个单元格选中，即可实现数据的及时刷新。