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

核心提示：两种方面都是运行在project/view source里编辑，一个是利用Windows系统的全局原子，Delphi只能运行一个程序实例的两种方法，另一个是利用API函数比较同类同名窗体，1.全局原子 利用向系统添加全局原子的方法，用GlobalFindAtom来检查是否已经存在该全局原子，最后在程序结束时用Globa

两种方面都是运行在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.