怎样防止程序重复开启？

怎样防止程序重复开启？

―――――来自优快云  _  FAQ列表

vb.net2003生成了.exe文件，双击一次出一个程序，再双击又出一个程序，如何阻止已经打开的程序再次被打开？  
 
一、Dim  Createnew  As  Boolean  =  False  
Dim  mtx  As  New  System.Threading.Mutex(True,  Application.ProductName,  Createnew)  
If  Not  Createnew  Then  
                     msgbox  ("该程序已运行)  '程序已经运行  
                     End  '退出  
End  If  

二、  
      If  Ubound(Diagnostics.Process.GetProcessesByName  (Diagnostics.Process.GetCurrentProcess.ProcessName))  >  0   Then 

'''利用管道来判断进程启动相同程序的个数
                     msgbox  ("该程序已运行)  '程序已经运行  
                     End  '退出  
End  If

转载于:https://www.cnblogs.com/sesexxoo/archive/2005/10/19/6190404.html