只能运行一个程序实例的两种方法对比

两种方面都是运行在project/view source里编辑。一个是利用Windows系统的全局原子，另一个是利用API函数比较同类同名窗体。

1.全局原子

   利用向系统添加全局原子的方法，全局原子由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.

2.API函数

program Project1;
  uses
    Forms,Windows, Unit1 in 'Unit1.pas' {Form1};
  var Hwnd:THandle;
begin
    Hwnd:=FindWindow('TForm1','窗体标题'); //查找是否已有窗体(窗体标题)
    if Hwnd<>0 then
    begin
      SetForegroundWindow(Hwnd); //激活已运行的程序实例，但程序最小化时无效
      MessageBox(0,'你已经运行了这个投影程序','',mb_OK);
   Application.Terminate; //终止本次实例
end
else
    begin
   Application.Initialize;
   Application.CreateForm(TForm1, Form1);
   Application.Run;//运行本次实例
end;
end.