让程序只运行一个实例(Delphi篇)
2010-05-10 11:46
190 查看
Windows 下一个典型的特征就是多任务,我们可以同时打开多个窗口进行操作,也可以同时运行程序的多个实例,比如可以打开许多个资源管理器进行文件的移动复制操作。但有时出于某种考虑(比如安全性),我们要做出一些限制,让程序只能够运行一个实例。在Delphi编程中,笔者总结出了以下几种方法:
一、 查找窗口法
这是最为简单的一种方法。在程序运行前用FindWindow函数查找具有相同窗口类名和标题的窗口,如果找到了,就说明已经存在一个实例。在项目源文件的初始化部分添加以下代码:
FindWindow()函数带两个参数,其中的一个参数可以忽略,但笔者强烈建议将两个参数都用上,免得凑巧别的程序也在使用相同的类名,就得不到正确的结果了。另外,如果是在Delphi IDE窗口中运行该程序,将一次都不能运行,因为已经存在相同类名和标题的窗口:设计时的窗体。
二、使用互斥对象
如果觉得查找窗口的方法效率不太高的话,可以使用创建互斥对象的方法。尽管互斥对象通常用于同步连接,但用在这个地方也是非常方便的。仅用了4句代码就轻松搞定。
三、全局原子法
我们也可以利用向系统添加全局原子的方法,来防止多个程序实例的运行。全局原子由Windows 系统负责维持,它能保证其中的每个原子都是唯一的,管理其引用计数,并且当该全局原子的引用计数为0时,从内存中清除。我们用GlobalAddAtom 函数向全局原子添加一个255个字节以内的字符串,用GlobalFindAtom来检查是否已经存在该全局原子,最后在程序结束时用GlobalDeleteAtom函数删除添加的全局原子。示例如下:
利用全局原子的引用计数规则,我们还可以判断当前共运行了该程序的多少个实例:
一、 查找窗口法
这是最为简单的一种方法。在程序运行前用FindWindow函数查找具有相同窗口类名和标题的窗口,如果找到了,就说明已经存在一个实例。在项目源文件的初始化部分添加以下代码:
Program OneApp Uses Forms,Windows;//(这里介绍的几种方法均需在项目源文件中添加Windows单元,以后不再重复了) Var Hwnd:Thandle; Begin Hwnd:=FindWindow(‘TForm1’,‘SingleApp’); If Hwnd=0 then Begin Application.Initialize; Application.CreateForm(Tform1, Form1); Application.Run; End; End;
FindWindow()函数带两个参数,其中的一个参数可以忽略,但笔者强烈建议将两个参数都用上,免得凑巧别的程序也在使用相同的类名,就得不到正确的结果了。另外,如果是在Delphi IDE窗口中运行该程序,将一次都不能运行,因为已经存在相同类名和标题的窗口:设计时的窗体。
二、使用互斥对象
如果觉得查找窗口的方法效率不太高的话,可以使用创建互斥对象的方法。尽管互斥对象通常用于同步连接,但用在这个地方也是非常方便的。仅用了4句代码就轻松搞定。
VAR Mutex:THandle; begin Mutex:=CreateMutex(NIL,True,‘SingleApp’); IF GetLastError<>ERROR_ALREADY_EXISTS THEN//如果不存在另一实例 BEGIN Application.CreateHandle; Application.CreateForm (TExpNoteForm, ExpNoteForm); Application.Run; END; ReleaseMutex(Mutex); end.
三、全局原子法
我们也可以利用向系统添加全局原子的方法,来防止多个程序实例的运行。全局原子由Windows 系统负责维持,它能保证其中的每个原子都是唯一的,管理其引用计数,并且当该全局原子的引用计数为0时,从内存中清除。我们用GlobalAddAtom 函数向全局原子添加一个255个字节以内的字符串,用GlobalFindAtom来检查是否已经存在该全局原子,最后在程序结束时用GlobalDeleteAtom函数删除添加的全局原子。示例如下:
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,‘You can not run a second copy of this App’,‘’,mb_OK); end.
利用全局原子的引用计数规则,我们还可以判断当前共运行了该程序的多少个实例:
var i:Integer; begin I:=0; while GlobalFindAtom(iAtom)<>0 do begin GlobalDeleteAtom(GlobalFindAtom(iAtom)); i:=i+1; end; ShowMessage(IntToStr(I)); end;
相关文章推荐
- 让程序只运行一个实例(Delphi篇)
- 让程序只运行一个实例(Delphi篇)(三种方法,其中使用全局原子的方法比较有意思)
- 让程序只运行一个实例的四种方法
- 计算机必知必会:进程process与线程thread 进程定义为一个正在运行的程序的实例
- 使用命名对象防止运行一个程序的多个实例
- C# WINFORM判断程序是否运行,且只能运行一个实例
- 程序只运行一个实例
- IOS错误异常一个未知的实例在运行,出现程序崩溃
- VC程序只运行一个实例,并在打开多个时激活原窗口
- 只允许允许一个程序实例,即使是通过虚拟桌面方式连接过来的,也是只允许一个人运行。
- c# 程序只能运行一次(多次运行只能打开同一个程序) 并激活第一个实例,使其获得焦点,并在最前端显示.
- 让程序只运行一个实例的方法
- 进程地址空间的共享(可以实现一个程序只有一个实例运行)
- 实现同时只允许运行一个程序实例
- VC 实现程序只运行一个实例,并激活已运行的程序
- VC++实现程序只运行一个实例 .
- 让程序只运行一个实例的四种方法
- 使用互斥量保证程序最多只有一个实例运行
- VC++实现程序只运行一个实例 最简单办法
- C#程序只允许运行一个实例的解决方案