今日收获:
一说到互斥,我们首先想到最简单的可能就是单例模式。但我们平常用的最多的就是进程的互斥,所以如果要实现一个应用程序只能创建一个的话,可以使用互斥的知识来实现。
这里我们说一下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就显示不出刷新的数据,但是如果将某个单元格选中,即可实现数据的及时刷新。