program Project1;

uses
  Windows,
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Function_U in 'E:\工作\JJQDS_V2\Function_U.pas',
  Config_U in 'E:\工作\JJQDS_V2\Config_U.pas';

{$R *.res}

var
  hAppMutex : THandle;

begin
  Application.Initialize;
  hAppMutex := CreateMutex(nil,False,PChar('{19D51511-8490-42AC-B677-E3D59AF822B1}'));
  if hAppMutex = 0 then
  begin
    MessageBox(0,PChar('创建互斥对象失败！'),PChar('Error'),MB_OK + MB_ICONINFORMATION);
    Exit;
  end;
  if (hAppMutex <> 0) and (GetLastError = ERROR_ALREADY_EXISTS) then
  begin
    MessageBox(0,PChar('不是第一次运行这个程序!'),PChar('OK'),MB_OK + MB_ICONINFORMATION);
    CloseHandle(hAppMutex);
    Exit;
  end; 
  Application.CreateForm(TForm1, Form1);
  Application.Run;
  CloseHandle(hAppMutex);
end.

=======================================================================

m_hMutex=CreateMutex(NULL,FALSE,m_pAppName);   //HANDLE   m_hMutex;  
  if(GetLastError()==ERROR_ALREADY_EXISTS)  
  {  
  HWND   hWnd=::FindWindow(NULL,m_pAppName);  
  if(hWnd)  
  {  
  if(::IsIconic(hWnd))  
  ::ShowWindow(hWnd,SW_RESTORE);  
  ::SetForegroundWindow(hWnd);  
  ::SetForegroundWindow(::GetLastActivePopup(hWnd));  
  }  
  else  
  MessageBox(NULL,"您的程序已经运行了","提示信息",MB_ICONINFORMATION);  
  return   FALSE;  
  }

========================================================================

以下代码尚不能激活已经运行的实例，你试着该以下吧，改好请贴出来。  
                    //在   InitInstance   中，创建信号量：  
  HANDLE   hSem   =   CreateSemaphore(NULL,1,1,m_pszAppName);  
  //信号量已存在？  
  if(GetLastError()   ==   ERROR_ALREADY_EXISTS)  
  {  
  //关闭信号量句柄  
  CloseHandle(hSem);  
  //寻找先前实例的主窗口  
  HWND   hWndPrevious   =   ::GetWindow(::GetDesktopWindow(),GW_CHILD);  
  while(::IsWindow(hWndPrevious))  
  {  
  //检查窗口是否有预设的标记？  
  //有，则是我们寻找的主窗口  
  if(::GetProp(hWndPrevious,m_pszAppName))  
  {  
  //主窗口已经最小化，则恢复其大小  
  if(::IsIconic(hWndPrevious))  
  ::ShowWindow(hWndPrevious,SW_RESTORE);  
  //将主窗口激活  
  ::SetForegroundWindow(hWndPrevious);  
  //将主窗口对话框激活  
  ::SetForegroundWindow(::GetLastActivePopup(hWndPrevious));  
  //退出本实例  
  reture   FALSE;  
  }  
  else  
  //继续寻找下一个窗口  
  hWndPrevious   =   ::GetWindow(hWndPrevious,GW_HWNDNEXT);  
   
  }  
  //前一实例已存在，但找不到其主窗口  
  //可能出错了  
  //退出本实例  
  return   FALSE;  
  }

评论