🚀 go-pugleaf

HANDLE mutex;
WINAPI WinMain(HINSTANCE hCurInstance, HINSTANCE hPrevInstance, LPSTR
lpCmdLine, int nCmdShow)
{
  try
  {
    mutex = ::CreateMutex(&sa, true, "sirconv.mutex");
    if (::GetLastError() == ERROR_ALREADY_EXISTS)
    {
      // Find the HWND of the hidden application window of the previous
      // instance. Note that we are not looking for the HWND of the main
      // form. This code fails miserably if you pass it the main form
      // HWND instead of the Application's HWND
      Application->Title = "";
      HWND hPrevApp = ::FindWindow("TSirconvMainForm", NULL);
      if(hPrevApp)
      {
        ::SendMessage(hPrevApp, WM_SYSCOMMAND, SC_RESTORE, 0);
        ::SetForegroundWindow(hPrevApp);
      }
    }
    else
    {
      Application->Initialize();
      Application->CreateForm(__classid(TSirconvMainForm),
&SirconvMainForm);
       Application->Run();
    }
  }
  catch (Exception &exception)
  {
    Application->ShowException(&exception);
  }

  if(mutex)
    ::CloseHandle(mutex);

  return 0;
}