学习首页 百科 人生课堂 办公软件 英语学习 操作系统 故事会 编程资料 软件学习 设计

输入您的搜索字词 提交搜索表单

铭瑶网 >> 学习首页 >> 软件 >> 防止同一个程序多次运行。 [VB.NET]

标题：防止同一个程序多次运行。 [VB.NET]

【字体： 大中小】 时间:2008-4-11 来源:互联网 作者:study

防止同一个程序多次运行。 [VB.NET]

防止同一个程序多次运行。 '*****************方法一：防止程序多次打开***************** ' 函数名： 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 获取当前运行程序的名称。

查看/参与:讨论/评论 相关文章：Vb.net