• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号
登陆 注册

让程序只运行一个实例(Delphi篇)（三种方法，其中使用全局原子的方法比较有意思） ...

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

Windows 下一个典型的特征就是多任务，我们可以同时打开多个窗口进行操作，也可以同时运行程序的多个实例，比如可以打开许多个资源管理器进行文件的移动复制操作。但有时出于某种考虑（比如安全性），我们要做出一些限制，让程序只能够运行一个实例。在Delphi编程中，笔者总结出了以下几种方法：
　　一、 查找窗口法
　　这是最为简单的一种方法。在程序运行前用FindWindow函数查找具有相同窗口类名和标题的窗口，如果找到了，就说明已经存在一个实例。在项目源文件的初始化部分添加以下代码：

[delphi] view plain copy
 
  1. Program OneApp  
  2. 　　Uses  
  3. 　　Forms,Windows;//（这里介绍的几种方法均需在项目源文件中添加Windows单元，以后不再重复了）  
  4. 　　Var Hwnd:Thandle;  
  5. 　　Begin  
  6. 　　 Hwnd:=FindWindow(‘TForm1’，‘SingleApp’);  
  7. 　　 If Hwnd=0 then  
  8. 　　 Begin  
  9. 　　 Application.Initialize;  
  10. 　　 Application.CreateForm(Tform1, Form1);  
  11. 　　 Application.Run;  
  12. 　　 End;  
  13. 　　End;  

 

FindWindow()函数带两个参数，其中的一个参数可以忽略，但笔者强烈建议将两个参数都用上，免得凑巧别的程序也在使用相同的类名，就得不到正确的结果了。另外，如果是在Delphi IDE窗口中运行该程序，将一次都不能运行，因为已经存在相同类名和标题的窗口：设计时的窗体。
　　二、使用互斥对象
　　如果觉得查找窗口的方法效率不太高的话，可以使用创建互斥对象的方法。尽管互斥对象通常用于同步连接，但用在这个地方也是非常方便的。仅用了4句代码就轻松搞定。

 

[delphi] view plain copy
 
  1. VAR Mutex:THandle;  
  2. 　　begin  
  3. 　　 Mutex:=CreateMutex(NIL,True,‘SingleApp’);  
  4. 　　 IF GetLastError<>ERROR_ALREADY_EXISTS THEN//如果不存在另一实例  
  5. 　　 BEGIN  
  6. 　　 Application.CreateHandle;  
  7. 　　 Application.CreateForm (TExpNoteForm, ExpNoteForm);  
  8. 　　 Application.Run;  
  9. 　　 END;  
  10. 　　 ReleaseMutex(Mutex);  
  11. 　　end.  

 

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

[delphi] view plain copy
 
  1. Uses Windows  
  2. 　　const iAtom=‘SingleApp’;  
  3. 　　begin  
  4. 　　 if GlobalFindAtom(iAtom)=0 then  
  5. 　　 begin  
  6. 　　 GlobalAddAtom(iAtom);  
  7. 　　 Application.Initialize;  
  8. 　　 Application.CreateForm(TForm1,Form1);  
  9. 　　 Application.Run;  
  10. 　　 GlobalDeleteAtom(GlobalFindAtom(iAtom));  
  11. 　　 end  
  12. 　　 else  
  13. 　　 MessageBox(0,‘You can not run a second copy of this App’,‘’,mb_OK);  
  14. 　　end.  

 

利用全局原子的引用计数规则，我们还可以判断当前共运行了该程序的多少个实例：

 

[delphi] view plain copy
 
  1. var i:Integer;  
  2. 　　begin  
  3. 　　 I:=0;  
  4. 　　while GlobalFindAtom(iAtom)<>0 do  
  5. 　　 begin  
  6. 　　 GlobalDeleteAtom(GlobalFindAtom(iAtom));  
  7. 　　 i:=i＋1;  
  8. 　　 end;  
  9. 　　 ShowMessage(IntToStr(I));  
  10. 　　end;  

 

http://blog.csdn.net/chaijunkun/article/details/5574332

鲜花
握手
雷人
路过
鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
More+
上一篇：
windows2003Server平台Delphi程序不支持直接调用webservice发布时间：2022-07-18
下一篇：
DelphiIdTCPClientIdTCPServer点对点传送文件发布时间：2022-07-18
热门推荐
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服
地址：深圳市南山区西丽大学城创智工业园
电邮：jeky_zhao#qq.com
移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap