各种语言Mutex(互斥)实现程序单实例运行

  在编程中如果不做处理的话，那么程序在运行一次之后还可以重复运行产生多个实例，这往往不是我们希望的，特别是对于一些无窗口的应用程序，多个程序在后台运行而我们却发现不了，会造成系统资源浪费。所以我们需要使用一定的方法限制程序使之只产生一个实例，当程序已经运行时就不能再运行之或报告程序已经运行之类的错误。
       使程序单实例方法不止一种，在此介绍使用互斥(Mutex)来实现程序单实例运行的方法。Mutex本来是多线程同步用的，防止多个线程访问同一资源而引发冲突。
( 1 ) VC++
在程序初始化实例代码中加入以下代码：
    HANDLE hMutex=CreateMutex(NULL,FALSE,"newMutex");//命名Mutex是全局对象,防止程序重复运行 ,互斥名为newMutex  
    //在所有的process都可以访问到    
    if(hMutex==NULL|| ERROR_ALREADY_EXISTS==::GetLastError())
   {    
         //程序第二次或以后运行时，会得到Mutex已经创建的错误
        ...
        return FALSE;    
    }  
( 2 ) C#.NET
在C#程序入口点main程序断段中加入如下代码：
   bool newMutex;  //定义bool变量newMutex
   Mutex m = new Mutex(true, "MutexForm", out newMutex);  //创建Mutex,互斥名为MutexForm
   if (newMutex)  //判断Mutex创建是否成功
   {
          Application.Run(new FormLogin());  //如果创建成功运行主程序
          m.ReleaseMutex();   //释放Mutex
    }

( 3 ) Dephi
    procedure tmainform.formcreate(sender: tobject);
    var
    mutexname: string;//互斥元名
    hprevwnd, hdata: hwnd; //hprevwnd---窗口句柄, hdata---getprop返回的属性值
    result: tmodalresult;
    logindlg: tloginform;
    begin
    mutexname := application.exename; //以应用程序名作为互斥名
    //创建互斥元.如果互斥元已经存在,这就是应用程序的第二个事例.
    //注意:当应用程序结束时,互斥元自动关闭.
    createmutex(nil, true, pchar(mutexname));
    if (getlasterror() = error_already_exists) then
    begin
        ...
    end;
     ...
end;