让程序同时只能运行一个C++ Builder实现（转）

源：让程序同时只能运行一个

很多人都讨论过这个问题, 这里用Victor串口控件里面现成的共享内存功能来实现。 当程序运行第二次时只是激活第一次运行的窗口, 而不是再运行一个程序。

需要在主程序里实现, 下面蓝色的部分是增加的内容: 

#include <vcl.h> #pragma hdrstop

#include "yb_base.h"

//---------------------------------------------------------------------------

USEFORM("UnitTestMain.cpp", Form1);

//---------------------------------------------------------------------------

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)

{

  //两个程序不能有相同的标志，有相同标志的程序只能运行一个

  TSharedMemory AppMark("VICTOR_20030526_2131",4096); //利用共享内存设置程序标志

  if(AppMark.Exists) //程序已经运行了   

 {

    AppMark.ActiveAppWnd(); //激活已经运行的程序窗口

    return 0; //退出程序

  }

  AppMark.ClearBuffer(); //清除缓存

  

  try

  {

    Application->Initialize();

    Application->CreateForm(__classid(TForm1), &Form1);

    AppMark.AppInfo->hMainWnd = Application->Handle; //句柄保存在共享内存里

    Application->Run();

  }

  catch (Exception &exception)

  {

    //.... 以后的内容省略