IDC资讯中心
防止同一个程序多次运行。
*****************方法一：防止程序多次打开*****************
函数名： isinstancerunning
功 能： 判断工程是否已运行
参 数： 无
返回值： true 已运行 false 未运行
*******************************************************
public function isinstancerunning() as boolean
dim current as process = system.diagnostics.process.getcurrentprocess()
dim processes as process() = system.diagnostics.process.getprocessesbyname(current.processname)
loop through the running processes in with the same name
dim p as process
for each p in processes
ignore the current process
if p.id <> current.id then
make sure that the process is running from the exe file.
if system.reflection.assembly.getexecutingassembly().location.replace("/", "\") = current.mainmodule.filename then
return the other process instance.
return true
end if
end if
next
no other instance was found, return null.
return false
end function runninginstance
*****************方法二：防止程序多次打开*****************
imports system.diagnostics
if ubound(process.getprocessesbyname(process.getcurrentprocess.processname)) _
> 0 then eixt sub
process.getcurrentprocess.processname 获取当前运行程序的名称。
