/**
 * Если окно приложения уже есть - выход.
 */

CheckApplicationExistence ()
{
  HMTX Already_running = NULLHANDLE;
  CHAR Semaphore_name[] = "\\SEM32\\WPS\\LAUNCHPAD";

  if (DosOpenMutexSem (Semaphore_name, &Already_running) != NO_ERROR)
  {
    DosCreateMutexSem (Semaphore_name, &Already_running, DC_SEM_SHARED, 1);
  } 
  else 
  {
    DosExit (EXIT_PROCESS, 0);
  }

  return 0;
}
