实现程序互斥运行的几种方法

核心提示：二、VB的实现在VB实现的程序中，全局对象App.PreInstance可以实现这个功能，实现程序互斥运行的几种方法(2)，App.PreInstance 是一个boolean型的值，如果其值为True说明程序已有一个实例在运行，我们可以在对窗体载入事件编程，来实现这个功能,代码如下:Private sub Form1

二、VB的实现

在VB实现的程序中，全局对象App.PreInstance可以实现这个功能。App.PreInstance 是一个boolean型的值。如果其值为True说明程序已有一个实例在运行，如果为False那么，程序可以运行。

我们可以在对窗体载入事件编程，来实现这个功能,代码如下:Private sub Form1_load()
　　If App.PreInstance　=　True then
　　　　MsgBox “程序已经运行！”
　　　　Unload me
　　End if
End sub

三、Delphi,C++Builder 的实现

我没有发现Delphi 和C++Builder 的编译器有实现像VC一样的功能。所以我们可以调用CreateMutex来实现这个功能。

CreateMutext(),GetLastError()这两个函数的详细信息可以参考MSDN.

本文配套源码