《使用互斥对象使程序只能运行一次》由会员分享,可在线阅读,更多相关《使用互斥对象使程序只能运行一次(3页珍藏版)》请在金锄头文库上搜索。
1、使用互斥对象让程序只运行一次转载“怎么让我的程序在运行时不能重复打开?” 经常在论坛上看到有朋友问这方面的问题。本文将比较详细的说明这一问题,并给出一个较为完善的解决方案。尽管这已经不是一个新问题了,但这里还是简要的说明一下这种技术:这的确是一个相当有用的技术,可能你经常会注意到相当多的程序在运行之后当你再次点击运行时,它只是会回到原来的窗口,而不会运行两个程序。就如同你在运行 delphi 时,在外部点开另一个工程文件时,delphi 只是会简单的将你的当前工程置换而不是运行两个 delphi。这样的好处是显而易见的:你不必担心你的程序在某些情况下被别的软件恶意运行多次而吃光内存造成当机。下
2、面我们做进一部的说明:熟悉 win32 编程的朋友(特别是多线程编程),相信对互斥对象已经相当熟悉了,它常被用做线程间同步的技术手段。这里我们使用它来防止程序重复运行。我们只是简要的提一下互斥对象,并不做深入研究:互斥对象把第一次建立它的程序作为主程序,这样我们只用检测互斥对象是否已经有主程序就判断程序是否已经运行过,这里需要涉及到一个 api函数:WaitForSingleObject 该函数的第一个参数为用以检测的互斥对象,第 2 个参数的表示函数返回结果前的滞留时间,如果改函数返回 wait_TimeOut 就表明互斥对象已经有了一个主程序。修改了的工程文件代码如下:(注意:以下的代码都
3、出现在工程文件中,而不是单元文件中,并且这里都在最简单的 delphi 默认建立的工程基础上修改)varmyMutex:HWND;beginmyMutex:=CreateMutex(nil,false,hkOneCopy);/ CreateMutex 建立互斥对象,并且给互斥对象起一个唯一的名字。if WaitForSingleObject(myMutex,0)wait_TimeOut then/程序没有被运行过beginApplication.Initialize;Application.CreateForm(TForm1, Form1);Application.Run;End;End;下面
4、的工作是来完善这个程序,我们不仅希望程序可以不被重复运行,而且我们也希望当用户再次点击程序可执行文件时,已经运行的程序能够做出一些响应。在这里我们希望它能够变为最上层的活动窗口以提醒用户程序已经被运行。为了达到这个目的,我们必须先获得已经运行程序的窗口句柄,以便使用 SetForeGroundWindow(handle)来使程序窗口最前并激活。为了得到这个句柄,我们必须使用 windows 枚举函数 EnumWindows 来遍历windows 的窗口列表,该函数可以使用一个回调函数作为参数,并用这个回调函数来对每一个系统中的窗口进行调用直到最后一个窗口或回调函数返回 false 为止,这个回
5、调函数规定有两个参数(handle,Cardinal,只用注意第一个 handle 参数它表示由枚举函数当前遍历到的窗口句柄)。我们只要编写这个函数并在其中不断的比较当前遍历到的窗口类名和我们的程序的主窗口类名,以及比较窗口可执行文件的名称和我们程序的名称直到找到相同的为止,将这时的窗口句柄保存下来就可以了,下面的代码加上了适当的注释:function EnumWndProc(hwnd:Thandle;param:Cardinal):bool;stdcall;/由于用于 api 回调函数,请使用 windows 传统的参数传递方式 stdcallvarClassName,WinMoudleNa
6、me:string;WinInstance:THandle;beginresult:=true;SetLength(ClassName,100);GetClassName(hwnd,pchar(ClassName),length(ClassName);/获得当前遍历窗口的类名ClassName:=pchar(ClassName);/在字符串后加结束符,确定字符串结束if ClassName=TForm1.ClassName then/比较beginWinInstance:=GetWindowLong(hwnd,GWL_HINSTANCE);/获得当前遍历窗口的实例setlength(WinMo
7、udleName,100);GetModuleFileName(WinInstance,pchar(WinMoudleName),length(WinMoudleName);/获得当前遍历窗口的程序文件名WinMoudleName:=pchar(WinMoudleName);if WinMoudleName=MoudleName then/MoudleName 为工程全局变量,自身程序的文件名beginFindHid:=hwnd;/FindHid 为工程全局变量保存找到的句炳result:=false;/找到以后就结束遍历end;end;end;下面是全部的工程文件:varhMutex,Fin
8、dHid:HWND;MoudleName:string;beginhMutex:=CreateMutex(nil,false,hkOneCopy);if WaitForSingleObject(hMutex,0)wait_TimeOut thenbegin/略去的代码在前文endelsebeginSetLength(MoudleName,100);GetModuleFileName(HInstance,pchar(MoudleName),length(MoudleName);/获得自己程序文件名MoudleName:=pchar(MoudleName);EnumWindows(EnumWndProc,0);/调用枚举函数 if FindHid0 thenSetForegroundWindow(FindHid);end;end.