Delphi应用程序的互斥源代码

多实例指同时有同一个应用程序的多个副本在一台电脑上同时运行，比如windows自带的记事本，你可以打开任意数量的记事本程序同一个应用程序的多个副本可以相互独立地同时运行，是Win32操作系统提供的一个功能。但有时，我们可能希望用户启动应用程序后就不再启动它的别的副本。比如某种设备资源的控制程序，像调制解调器和并行端口。这种情况下，用程序代码防止同时出现多个程序的副本在运行是非常必要的。本程序源代码实现了互斥判定，欢迎大家提出意见和建议