Question

如何让一个程序只运行实例

Answer 1

一、在VC下的实现
Visual C++ 是WIN32编程最主要也是最强大的编程工具这一，引用一名话来说VC就是“只有你想不到的，没有VC做不到的”。废话少说，下面看看用VC是如何这个功能。
A． 使用编译器来实现（使用MFC框架）：
在.cpp文件开头加上以下几行：#pragma data_seg("Shared") int volatile g_lAppInstance =0; #pragma data_seg()

我们来看一下上面的内容：
第一句 #pragma data_seg("Shared") 创建一个称为Shared 的新节。
第二句 int volatile g_lAppInstance =0 将 g_lAppInstance 放入Shared节中。注意此时只有将g_lAppInstance初始化，编译器才会将其放入Shared节中，否则，将放入Shared以外的节。（实际上Visual C++ 编译器提供了一个allocate 说明符，使我们可以将数据放到任何节中。）
第三句指示编译器Shared 节结束。#pragma comment(linker,"/section:Shared,RWS")
这一句，我们使编译链接器知道我们的Shared节具有读，写，共享的属性。这是我们实现互斥运行的关键。这样我们就可以在应用程序之间的多个实例之间共享g_lAppInstance 变量。
在InitInstance() 函数中加入：if(++g_lAppInstance>1) { AfxMessageBox("程序已经运行!"); return FALSE; }
以上代码的作用是在程序是开始对g_lAppInstancd 加1 ，如果发现其值大于1，那么显示Message Box ,并返回FALSE。（注意：在MFC中如果InitInstance返回FALSE，程序将不会被运行！）

B.使用命名互斥对象：

使用API函数CreateMutex来创建命名互斥对象来实现程序互斥是一个比较通用的方法，我们可以在IninInstance()函数加入如下代码:HANDLE hObject = CreateMutex(NULL,FALSE,"LJPXYXC"); if(GetLastError() == ERROR_ALREADY_EXISTS) { CloseHandle(hObject); AfxMessageBox("程序已经运行!"); return FALSE; }
以上的CreateMutext函数创建一个称为“LJPXYXC”的命名的互斥对象，当程序的第二个实例运例时，调用CreateMutex 返回ERROR_ALREADY_EXISTS。我们根据这个值来实现程序的互斥运行。

二、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.