在project/view source里编辑。利用Windows系统的全局原子

全局原子
   利用向系统添加全局原子的方法，全局原子由Windows 系统负责维持，它能保证其中的每个原子都是唯一的，管理其引用计数，并且当该全局原子的引用计数为0时，从内存中清除。我们用GlobalAddAtom 函数向全局原子添加一个255个字节以内的字符串，用GlobalFindAtom来检查是否已经存在该全局原子，最后在程序结束时用GlobalDeleteAtom函数删除添加的全局原子。示例如下：

program Project1;
Uses Windows
const
  iAtom='SingleApp';
begin
  if GlobalFindAtom(iAtom)=0 then
  begin
　　GlobalAddAtom(iAtom);
　　Application.Initialize;
　　Application.CreateForm(TForm1,Form1);
　  Application.Run;
　  GlobalDeleteAtom(GlobalFindAtom(iAtom));
　end
　else
　　MessageBox(0,'你已经运行了这个投影程序','',mb_OK);
end.