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

【编者按】：网学网DELPHI为您提供Delphi只能运行一个程序实例的两种方法参考，解决您在Delphi只能运行一个程序实例的两种方法学习中工作中的难题，参考学习。

 

两种方法都是在project/view source里编辑。一个是利用Windows系统的全局原子，另一个是利用API函数比较同类同名窗体。 1.全局原子　 利用向系统添加全局原子的方法，全局原子由Windows 系统负责维持，它能保证其中的每个原子都是唯一的，管理其引用计数，并且当该全局原子的引用计数为0时，从内存中清除。我们用GlobalAddAtom 函数向全局原子添加一个255个字节以内的字符串，用GlobalFindAtom来检查是否已经存在该全局原子，最后在程序结束时用GlobalDeleteAtom函数删除添加的全局原子。示例如下： program Project1; Uses Windowsconst  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.