只启动一个程序实例，如果已运行则调到前端_delphi 启动程序如果已在运行就让程序窗口置前显示-优快云博客

本文链接：https://blog.youkuaiyun.com/hello_Albert/article/details/18265603

本文介绍了一种通过创建互斥量和设置窗口属性的方法来确保应用程序只能运行一个实例。在初始化过程中使用互斥量检查是否已有实例运行，并通过设置和检查窗口属性来定位并激活已存在的实例。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1. 设置互斥量，并查找窗口，在InitInstance()函数中实现

TCHAR szMuteName[] = _T("MySignleApp");
HANDLE hSingleTon = CreateMutex(NULL, FALSE, szMutexName);
if(GetLastError() == ERROR_ALREADY_EXISTS)
{
    HWND hwndPrevious = ::GetWindow(::GetDesktopWindow(), GW_CHILD); //查找先前实例的主窗口
    while(::IsWindow(hwndPrevious))
    {
      //检查窗口是否有预设的标记
      //有，则是要查找的主窗口
      if(::GetProp(hwndPrevious,  m_pszExeName)//要用SetProp来设定标记，可在MainFrm的OnCreate函数中调用SetProp
      {

          //窗口已经最小化，则恢复其大小

          if(::IsIconic(hwndPrevious))

	      ::ShowWindow(hwndPrevious, SW_RESTORE);

	  ::SetForegroundWindow(hwndPrevious);//激活主窗口

	  ::SetForegroundWindow(::GetLastActivePopup(hwndPrevious));//激活主窗口的对话框

	  return FALSE;//退出本实例

      hwndPrevious = ::GetWindow(hwndPrevious, GW_HWNDNEXT);//查找下一个窗口
    }

    return FALSE;//前一个实例已经存在，但找不到其主窗口，退出实例
}

2. 设置标记，在MainFrame的OnCreate()函数中

 ::SetProp(m_hWnd, theApp.m_pszExeName, (HANDLE)1);

3. 在程序关闭时去掉标记，可在OnClose()函数中实现

 ::RemoveProp(m_hWnd, theApp.m_pszExeName);