中国IT动力,最新最全的IT技术教程
最新100篇 | 推荐100篇 | 专题100篇 | 排行榜 | 搜索 | 在线API文档 | 网通镜像
首 页 | 程序开发 | 操作系统 | 软件应用 | 图形图象 | 网络应用 | 精文荟萃 | 教育认证 | 硬件维护 | 未整理篇 | 站长教程
ASP JS PHP工程 ASP.NET 网站建设 UML J2EESUN .NET VC VB VFP 网络维护 数据库 DB2 SQL2000 Oracle Mysql
服务器 Win2000 Office C DreamWeaver FireWorks Flash PhotoShop 上网宝典 CorelDraw 协议大全 网络安全 微软认证
硬件维护  CPU  主板  硬盘  内存  显卡  显示器  键盘鼠标  声卡音箱  打印机  机箱电源  BIOS  网卡  C#  Java  Delphi  vs.net2005
  当前位置:> 程序开发 > 编程语言 > .NET > 临时文章
保证应用程序只有一个实例在运行
作者:acewang 时间:2002-03-07 11:09 出处:互联网 责编:chinaitpower
              摘要:保证应用程序只有一个实例在运行

[C#]
public static Process RunningInstance()
{
     Process current = Process.GetCurrentProcess();
     Process[] processes = Process.GetProcessesByName (current.ProcessName);
      //Loop through the running processes in with the same name
      foreach (Process process in processes)
      {
          //Ignore the current process
           if (process.Id != current.Id)
          {
               //Make sure that the process is running from the exe file.
                if (Assembly.GetExecutingAssembly().Location.Replace("/", "\\") == current.MainModule.FileName)
                {
                    //Return the other process instance.
                    return process;
                }
           }
      }
      //No other instance was found, return null.
      return null;
}

[VB.NET]
Public Shared Function RunningInstance() As Process
     Dim current As Process = Process.GetCurrentProcess()
     Dim processes As Process() = Process.GetProcessesByName(current.ProcessName)

     'Loop through the running processes in with the same name
     Dim process As Process
     For Each process In processes
          'Ignore the current process
          If process.Id <> current.Id Then
               'Make sure that the process is running from the exe file.
               If [Assembly].GetExecutingAssembly().Location.Replace("/", "\") = current.MainModule.FileName Then
                    'Return the other process instance.
                    Return process
               End If
          End If
     Next process
     'No other instance was found, return null.
     Return Nothing
End Function 'RunningInstance

如果检测到已有窗体实例,将此实例显示出来参考:

[STAThread]
static void Main()
{
       //Get the running instance.
       Process instance = RunningInstance();
       if (instance == null)
       {
              //There isn't another instance, show our form.
              Application.Run (new Form2());
       }
       else
       {
              //There is another instance of this process.
              HandleRunningInstance(instance);
       }
}
public
static Process RunningInstance()
{
       Process current = Process.GetCurrentProcess();
       Process[] processes = Process.GetProcessesByName (current.ProcessName);
       //Loop through the running processes in with the same name
       foreach (Process process in processes)
       {
              //Ignore the current process
              if (process.Id != current.Id)
              {
                     //Make sure that the process is running from the exe file.
                     if (Assembly.GetExecutingAssembly().Location.Replace("/", "\\") ==current.MainModule.FileName)
                     {
                            //Return the other process instance.
                            return process;
                     }
              }
       }
       //No other instance was found, return null.
       return null;
}
public
static void HandleRunningInstance(Process instance)
{
       //Make sure the window is not minimized or maximized
       ShowWindowAsync (instance.MainWindowHandle , WS_SHOWNORMAL);
       //Set the real intance to foreground window
       SetForegroundWindow (instance.MainWindowHandle);
}
[DllImport("User32.dll")]
private
static extern bool ShowWindowAsync(    IntPtr hWnd, int cmdShow);
[DllImport("User32.dll")]
private
static extern bool SetForegroundWindow(IntPtr hWnd);
private const int WS_SHOWNORMAL = 1
关闭本页
 
首页 | 投资与合作 | 服务条款 | 隐私政策 | 收藏本站 | 设为首页 | 新用户注册 | 免责声明 | 使用帮助
Copyright ©2005-2008 chinaitpower.com All rights reserved. www.chinaitpower.com 版权所有