Loading... <p dir="ltr" style="MARGIN-RIGHT: 0px">------------------------------<br />防止程序被重复执行（第一法）<br /><br />Windows95的程序一般都可以重复执行，例如你按下WIN+E组合键即启动资 <br />源管理器，如果再按WIN+E组合键又会出现一个资源管理器，这两个程序互不干 <br />扰。有时候你可以需要制作这样一个程序：当该程序已经执行时，若用户企图 <br />再次执行该程序则只会激活那个已执行的程序，而不是又出现一个副本。 <br /> 完成这个目的的核心就是要在程序启动时查找该程序是否已经运行，我曾 <br />试过很多种方法，包括向“全局元素表”(Global ATOM Table)写特定字符串等 <br />等，但最简单的方法还是下面这个： <br /><br />在程序启动时将Application的Title特性字段的值暂时改变。 <br />利用Windows API函数FindWindows()查找窗口 <br />恢复Application的Title值 <br /><br /> 上述步骤一般在主Form的OnCreate事件中实现，示例如下： <br /><br />procedure TForm1.FormCreate(Sender: TObject); <br />var <br /> ZAppName: array[0..127] of char; <br /> Hold: String; <br /> Found: HWND; <br />begin <br /> Hold := Application.Title; <br /> Application.Title := 'OnlyOne' + IntToStr(HInstance); <br /> StrPCopy(ZAppName, Hold); <br /> Found := FindWindow(nil, ZAppName); <br /> Application.Title := Hold; <br /> if Found<>0 then <br /> begin <br /> ShowWindow(Found, SW_RESTORE); <br /> Application.Terminate;<br /> end; <br />end; <br /><br />----------------------------------------<br />防止程序重复执行<br /><br /><br /><br />相关文章：防止程序被重复执行（另一种方法）<br /><br /><br /> 实现单实例运行的关键是判断前一实例是否存在，Win3.x中运行的程序能获知前 <br />一实例的句柄，从而可以方便地进行判断，但 Windows 95 是抢先式多任务系统，其 <br />程序的前一实例句柄恒为零，所以只有另寻其他办法。目前最有效的办法是通过查看 <br />是否有相同窗口类名的例程存在来进行判断。下面介绍在Delphi中实现的方法。 <br /><br />1、对主窗口程序的改动： <br /><br />在主窗口(即程序创建的第一个窗口)中interface节加入 <br />const <br />CM_RESTORE = WM_USER + $1000; {自定义的“恢复”消息} <br />MYAPPNAME = "My Delphi Program"; <br />并在Form的定义的public节中加入 <br />procedure CreateParams(var Params: TCreateParams); override; <br />Procedure RestoreRequest(var message: TMessage); message CM_RESTORE; <br />在implementation节中加入 <br />{指定窗口名称} <br />procedure TForm1.CreateParams(var Params: TCreateParams); <br />begin <br />inherited CreateParams(Params); <br />Params.WinClassName := MYAPPNAME; <br />end; <br /><br />{处理“恢复”消息} <br />procedure TForm1.RestoreRequest(var message: TMessage); <br />begin <br />if IsIconic(Application.Handle) = TRUE then <br />Application.Restore <br />else <br />Application.BringToFront; <br />end; <br /><br />经过以上修改，程序的主窗口的类名已经被指定了，这是进行判断的基础。一般在程 <br />序刚开始运行的时候进行判断，所以还要对DPR文件进行修改。 <br /><br />2、对DPR文件的改动 <br /><br />在 uses 节中添加 windows、messages这两个单元加入下列语句，注意两个文件中常 <br />量CM_RESTORE和MYAPPNAME的定义必须一致 <br />const <br />CM_RESTORE = WM_USER + $1000; {自定义的“恢复”消息} <br />MYAPPNAME = "My Delphi Program"; <br />var <br />RvHandle : hWnd; <br /><br />将下列语句插到程序最前部(在Application.Initialize之前) <br /><br />RvHandle := FindWindow(MYAPPNAME, NIL); <br />if RvHandle > 0 then <br />begin <br />PostMessage(RvHandle, CM_RESTORE, 0, 0); <br />Exit; <br />end; <br />这段程序的意思是如果找到一个类名相同的窗口，则向该窗口发送一个消息，并退 <br />出，而本例中原窗口收到该消息后会自动激活或从图标还原，从而达到了避免二次运 <br />行且能自动调出前一例程的目的。 </p><p dir="ltr" style="MARGIN-RIGHT: 0px">----------------------------------------------------------------</p><p dir="ltr" style="MARGIN-RIGHT: 0px">方法三: 工程文件中：<br />{$R *.res}<br /><br /> const mypro='tmainapp';//主窗体类<br /> var handle:integer;<br />begin<br /> handle:=findwindow(mypro,nil);<br /> if handle<>0 then<br /> begin<br /> messagebox(0,'程序正在运行,请退出!','警告!',0);<br /> // halt;<br /> end;<br /> Application.CreateForm(Tmainapp, mainapp); <br />------------------------------------------------------------------------------</p><p dir="ltr" style="MARGIN-RIGHT: 0px">方法四:</p><div style="MARGIN: 4px 8px 0px" firstchar="">procedure Tloginform.FormCreate(Sender: TObject);<br />var<br /> errno:integer;<br /> hmutex:hwnd;<br />begin<br /> hmutex:=createmutex(nil,false,pchar(application.Title));<br /> errno:=getlasterror;<br /> if errno=error_already_exists then<br /> begin<br /> application.MessageBox(' 您已经打开了该软件'+#13#13+' 请不要再尝试'+#13#13+'您只能运行一个程序实例','不要试图打开多个',mb_ok);<br /> application.Terminate;<br /> end;<br />end; </div><div style="MARGIN: 4px 8px 0px" firstchar="">------------------------------------------------------------</div><div style="MARGIN: 4px 8px 0px" firstchar="">在《Delphi 5 开发人员指南》中第13章中有一篇"防止同时出现多个应用程序实例",<br />代码中给出了一个MultInst.pas单元,工程引用此单元就能防止同时出现多个实例,<br />但实际应用中发现,如果应用程序并没有最小化,第二个实例不能把第一个实例提到最前.<br />下面是我改写的MultInst.pas单元,能解决这个小问题.<br />//==============================================================================<br />// Unit Name: MultInst<br />// Author : ysai<br />// Date : 2003-05-20<br />// Purpose : 解决应用程序多实例问题<br />// History :<br />//==============================================================================<br /><br />//==============================================================================<br />// 工作流程<br />// 程序运行先取代原有向所有消息处理过程,然后广播一个消息.<br />// 如果有其它实例运行,收到广播消息会回发消息给发送程序,并传回它自己的句柄<br />// 发送程序接收到此消息,激活收到消息的程序,然后关闭自己<br />//==============================================================================<br />unit MultInst;<br /><br />interface<br /><br />uses<br /> Windows ,Messages, SysUtils, Classes, Forms;<br /><br />implementation<br /><br />const<br /> STR_UNIQUE = '{2BE6D96E-827F-4BF9-B33E-8740412CDE96}';<br /> MI_ACTIVEAPP = 1; //激活应用程序<br /> MI_GETHANDLE = 2; //取得句柄<br /><br />var<br /> iMessageID : Integer;<br /> OldWProc : TFNWndProc;<br /> MutHandle : THandle;<br /> BSMRecipients : DWORD;<br /><br />function NewWndProc(Handle: HWND; Msg: Integer; wParam, lParam: Longint):<br /> Longint; stdcall;<br />begin<br /> Result := 0;<br /> if Msg = iMessageID then<br /> begin<br /> case wParam of<br /> MI_ACTIVEAPP: //激活应用程序<br /> if lParam<>0 then<br /> begin<br /> //收到消息的激活前一个实例<br /> //为什么要在另一个程序中激活?<br /> //因为在同一个进程中SetForegroundWindow并不能把窗体提到最前<br /> if IsIconic(lParam) then<br /> OpenIcon(lParam)<br /> else<br /> SetForegroundWindow(lParam);<br /> //终止本实例<br /> Application.Terminate;<br /> end;<br /> MI_GETHANDLE: //取得程序句柄<br /> begin<br /> PostMessage(HWND(lParam), iMessageID, MI_ACTIVEAPP,<br /> Application.Handle);<br /> end;<br /> end;<br /> end<br /> else<br /> Result := CallWindowProc(OldWProc, Handle, Msg, wParam, lParam);<br />end;<br /><br />procedure InitInstance;<br />begin<br /> //取代应用程序的消息处理<br /> OldWProc := TFNWndProc(SetWindowLong(Application.Handle, GWL_WNDPROC,<br /> Longint(@NewWndProc)));<br /><br /> //打开互斥对象<br /> MutHandle := OpenMutex(MUTEX_ALL_ACCESS, False, STR_UNIQUE);<br /> if MutHandle = 0 then<br /> begin<br /> //建立互斥对象<br /> MutHandle := CreateMutex(nil, False, STR_UNIQUE);<br /> end<br /> else begin<br /> Application.ShowMainForm := False;<br /> //已经有程序实例,广播消息取得实例句柄<br /> BSMRecipients := BSM_APPLICATIONS;<br /> BroadCastSystemMessage(BSF_IGNORECURRENTTASK or BSF_POSTMESSAGE,<br /> @BSMRecipients, iMessageID, MI_GETHANDLE,Application.Handle);<br /> end;<br />end;<br /><br />initialization<br /> //注册消息<br /> iMessageID := RegisterWindowMessage(STR_UNIQUE);<br /> InitInstance;<br /><br />finalization<br /> //还原消息处理过程<br /> if OldWProc <> Nil then<br /> SetWindowLong(Application.Handle, GWL_WNDPROC, LongInt(OldWProc));<br /><br /> //关闭互斥对象<br /> if MutHandle <> 0 then CloseHandle(MutHandle);<br /><br />end. <br /><br />------------------------------------------------<br /><br />Windows 下一个典型的特征就是多任务，我们可以同时打开多个窗口进行操作，也可以同时运行程序的多个实例，比如可以打开许多个资源管理器进行文件的移动复制操作。但有时出于某种考虑（比如安全性），我们要做出一些限制，让程序只能够运行一个实例。在Delphi编程中，笔者总结出了以下几种方法： <br /> 一、 查找窗口法 <br /> 这是最为简单的一种方法。在程序运行前用FindWindow函数查找具有相同窗口类名和标题的窗口，如果找到了，就说明已经存在一个实例。在项目源文件的初始化部分添加以下代码： <br /> Program OneApp <br /> Uses <br /> Forms,Windows;（这里介绍的几种方法均需在项目源文件中添加Windows单元，以后不再重复了） <br /> Var Hwnd:Thandle; <br /> Begin <br /> Hwnd:=FindWindow(‘TForm1’，‘SingleApp’); <br /> If Hwnd=0 then <br /> Begin <br /> Application.Initialize; <br /> Application.CreateForm(Tform1, Form1); <br /> Application.Run; <br /> End; <br /> End; <br /> FindWindow()函数带两个参数，FindWindow的第一个参数是类名，第二个参数是窗口标题,其中的一个参数可以忽略，但笔者强烈建议将两个参数都用上，免得凑巧别的程序也在使用相同的类名，就得不到正确的结果了。另外，如果是在Delphi IDE窗口中运行该程序，将一次都不能运行，因为已经存在相同类名和标题的窗口：设计时的窗体。 <br /> 二、使用互斥对象 <br /> 如果觉得查找窗口的方法效率不太高的话，可以使用创建互斥对象的方法。尽管互斥对象通常用于同步连接，但用在这个地方也是非常方便的。仅用了4句代码就轻松搞定。 <br /> VAR Mutex:THandle; <br /> begin <br /> Mutex:=CreateMutex(NIL,True,‘SingleApp’); <br /> IF GetLastError<>ERROR_ALREADY_EXISTS THEN//如果不存在另一实例 <br /> BEGIN <br /> Application.CreateHandle; <br /> Application.CreateForm (TExpNoteForm, ExpNoteForm); <br /> Application.Run; <br /> END; <br /> ReleaseMutex(Mutex); <br /> end. <br /> 三、全局原子法 <br /> 我们也可以利用向系统添加全局原子的方法，来防止多个程序实例的运行。全局原子由Windows 系统负责维持，它能保证其中的每个原子都是唯一的，管理其引用计数，并且当该全局原子的引用计数为0时，从内存中清除。我们用GlobalAddAtom 函数向全局原子添加一个255个字节以内的字符串，用GlobalFindAtom来检查是否已经存在该全局原子，最后在程序结束时用GlobalDeleteAtom函数删除添加的全局原子。示例如下： <br /> Uses Windows <br /> const iAtom=‘SingleApp’; <br /> begin <br /> if GlobalFindAtom(iAtom)=0 then <br /> begin <br /> GlobalAddAtom(iAtom); <br /> Application.Initialize; <br /> Application.CreateForm(TForm1,Form1); <br /> Application.Run; <br /> GlobalDeleteAtom(GlobalFindAtom(iAtom)); <br /> end <br /> else <br /> MessageBox(0,‘You can not run a second copy of this App’,‘’,mb_OK); <br /> end. <br /> 利用全局原子的引用计数规则，我们还可以判断当前共运行了该程序的多少个实例： <br /> var i:Integer; <br /> begin <br /> I:=0; <br /> while GlobalFindAtom(iAtom)<>0 do <br /> begin <br /> GlobalDeleteAtom(GlobalFindAtom(iAtom)); <br /> i:=i＋1; <br /> end; <br /> ShowMessage(IntToStr(I)); <br /> end; <br /> 以上几种方法在笔者的Delphi 5.0，中文Windows2000下通过。</div> 相关文章 无相关文章 Last modification：August 16th, 2009 at 12:30 pm © 允许规范转载