如何使用CreateMutex在Delphi中避免多个应用程序实例同时运行？

本文共计1811个文字，预计阅读时间需要8分钟。

在Windows 16位系统中，防止多个实例很简单，因为系统变量hPrevInst可用于判断是否已有其他实例存在。当hPrevInst不为0时，表示已有其他应用程序实例正在运行。

　　在16位的Windows中，要防止出现多个实例是很简单的，因为系统变量hPrevInst可以被用来判断是否有其他的实例存在。当hPrevInst变量不为0时，表示已经有别的应用程序实例在运行。
　　然而，在Win32系统中每个进程之间有R32绝缘层来彼此隔绝。因此，在Win32系统中变量hPrevInst的值总为0。另一种既适合Win32系统又适合于16位的Windows的技术，是调用FindWindow()API函数去搜索一个已激活的程序窗口。
　　Windows API 提供了函数FindWindow，可以是应用程序在启动时检查自己是否已经存在。 该函数在Delphi中的语法为：

function FindWindow(lpClassName: PChar, lpWindowName: PChar): HWND;

　 　其中，参数lpCalssName 是要查找的窗口的类的名称，参数lpWindowName是要查找的窗口的标题(Caption)。 如果找到了相应的窗口实例，将返回一个非0 的该窗口句柄的整型值，否则返回0 。因此，只要判断应用程序的主窗口（或者伴随着应用程序存在而存在的窗口）是否存在就可以判断是否已经有实例存在了。
　　例如：

H := FindWindow('TForm1', nil);
　　if H = 0 then begin
　　 ShowMessage('没有发现相同的应用程序实例。