让Delphi程序只运行一个实例

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

{Project1.dpr}

 
program Project1;

uses
  Forms, Windows,                     //添加Windows单元
  Unit1 in 'Unit1.pas' {Form1};
 
const
  iAtom='SingleApp'; 

{$R *.res}

begin    
  if GlobalFindAtom(iAtom)=0 then    
  begin    
    GlobalAddAtom(iAtom);    
    Application.Initialize;
    Application.Title := '这里是菜单Project-Options-Application-Title里设置的标题';
    Application.CreateForm(TForm1,Form1);    
    Application.Run;    
    GlobalDeleteAtom(GlobalFindAtom(iAtom));    
  end    
  else     
     MessageBox(0,'You can not run a second copy of this Application!','',MB_ICONASTERISK);  
end.  

 =================================================

利用全局原子的引用计数规则，我们还可以判断当前共运行了该程序的多少个实例：    
var i:Integer;    
begin    
  I:=0;    
while GlobalFindAtom(iAtom)<>0 do    
  begin    
  GlobalDeleteAtom(GlobalFindAtom(iAtom));    
  i:=i＋1;    
  end;    
  ShowMessage(IntToStr(I));    
end;    

以上方法在笔者的Delphi7 & Windows7下测试通过。 

 =================================================

最后

以上就是魔幻乌冬面为你收集整理的让Delphi程序只运行一个实例 的全部内容，希望文章能够帮你解决让Delphi程序只运行一个实例 所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。