防止程序重复运行

Private

Sub

Form_Load()

If

App.PrevInstance

=

True

Then

MsgBox

"该程序已经运行。",

vbInformation

End

End

If

End

Sub

由于WINDOWS的多任务处理功能，

有些程序可能打开后忘记了，下次用时还可能再打开，这样做会占用系统资源降低系统效率。为了防止自身被多次运行，可利用VB应用对象提供的PrevInstance属性来检测内存中是否已有一个自身的副本，若有则给出提示后结束。一般码清将检测代码放在FORM＿LOAD（）中，因为程序空绝一运行就要检测，一旦有实迟亏前例运行了它的返回值就是True，也就表明前面至少已经有一个实例在运行.

Vbinformation

:

d出信息对话框,是对话框的一种类型，包括的信息就是"该程序已经运行。"^_^

在 delphi 中防止程序多次运行，有多种办法：

1、通过查找是否存在同名窗口的方式来防止，示例代码如下：

Var Hwnd:Thandle

Begin

 Hwnd:=FindWindow(‘窗口类名称’，‘窗口标题’)

 If Hwnd=0 then

 Begin

 Application.Initialize

　银兆帆　 Application.CreateForm(Tform1, Form1)

 Application.Run

 End

End

2、使用互斥对象，示例代码如下：

 var

   mymutex: THandle

 begin

   mymutex:=CreateMutex(nil,True,'MyMutx')

   if GetLastError<>ERROR_ALREADY_EXISTS then

   begin

     Application.Initialize

     Application.CreateForm(TForm1, Form1)

     Application.Run

   end

   else

     showmessage('程序已经运行')

 end.

3、使用全局原子，示例代码如下：

 const

 锋雹  myatom='myatom'

 猜悉begin

   if GlobalFindAtom(myatom)=0 then

   begin

     GlobalAddAtom(myatom)

     Application.Initialize

     Application.CreateForm(TForm1, Form1)

     Application.Run

     GlobalDeleteAtom(GlobalFindAtom(myatom))

   end

   else

     showmessage('程序已运行')

 end.

一早如嫌个vc的程序，由于使用了1394相机和串口资源，在多次运行时死机。

在App::InitInstance()中加入

CreateMutex(NULL,true,m_pszAppName)

if(GetLastError() == ERROR_ALREADY_EXISTS)

{

AfxMessageBox(_T("橡友应用程序不可以重复启动"),MB_OK | MB_APPLMODAL | MB_ICONSTOP)

return(false)

}

把m_pszAppName换成程序的GUIDe值即可。一般在stdafx.h有，例如

#if !defined(AFX_STDAFX_H__A5EA48F2_0257_4B04_B771_A2E1635741D8__INCLUDED_)

#define AFX_STDAFX_H__A5EA48F2_0257_4B04_B771_A2E1635741D8__INCLUDED_

#if _MSC_VER >1000

#pragma once

#endif // _MSC_VER >1000

则陆手GUID为：A5EA48F2_0257_4B04_B771_A2E1635741D8

这个值就是的程序ID，可定义为：

#define MY_GUID "{A5EA48F2_0257_4B04_B771_A2E1635741D8}"

然后把MY_GUID替换上面的m_pszAppName的即可。

---