delphi 同时只能够运行一个程序。（网上搜的）

首先在项目文件(*.dpr)的uses段中添加Windows的引用，然后声明一个hWnd类型的变量hMutex：

var

    hMutex:hWnd;

最后在项目文件的begin和end中添加以下代码：

  Application.Initialize;

  Application.Title:='test';