防止程序重复运行

Private

Sub

Form_Load()

If

App.PrevInstance

=

True

Then

MsgBox

"该程序已经运行。",

vbInformation

End

End

If

End

Sub

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

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

Vbinformation

:

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

建立一个共享内存

在内存内

用

timer

控件刷新时间，

或这建立一个文件

比如

c:\xxx.txt

来写入数据

其他

exe

运行的时候调用同一个来判断是否已经运行，

再就是读

进程的方法你的程序进程名字肯定都一样，有重复的就不运行就好了。

App.PrevInstance能够判断是否一个实例。你的意思大概是复制在别的目录下的程序也不允许运行。

可以在注册表里写程序的状态，程序启动时检查状态，如果怕破解，也可以定时检测，这样就能防止程序多次运行了。

---