Время от времени у программистов возникает вопрос как предотвратить повторный запуск программы. Это, конечно, не такой "вечный" вопрос, как проблема помещения иконки "туда, где часики", но возникает он регулярно. Предлагаются самые разные решения: от поиска уже созданного окна приложения до файлов-меток и использования PrevInstance. Каждый из этих методов имеет свои недостатки. Предлагаю почти идеальный метод распознавания уже запущенного приложения - использование семафора. Способ прост и лаконичен. Он позволяет распознать, что приложение уже запущено. А дальше все зависит от Вас: хотите не допустить повторный запуск - гасите вторую копию. А может быть нужно, чтобы некие действия выполнялись только первым экземпляром приложения - да нет проблем! И при этом не требуется громоздкого перечисления окон, не нужны файлы... В общем, сплошные плюсы.

    Что же такое семафор? Это объект операционной системы, предназначенный для совместного управления различными ресурсами ОС. Семафор может находиться в двух состояниях: "свободен" и "занят". С семафором связан счетчик ресурсов. Для занятого семафора он имеет нулевое значение, для свободного - положительное. Семафор можно использовать совместно с функцией WaitForSingleObject для ожидания освобождения семафора.

  Но нам не требуется ждать освобождения семафора. Достаточно попытаться создать семафор функциейCreateSemaphore, а затем просто проанализировать код ошибки. Если семафор создан успешно - запускается первый экземпляр. Если возникла ошибка - экземпляр не первый. И это все. Осталось только не забыть освободить семафор вызовом функции ReleaseSemaphore перед завершением приложения.

  Однако, к делу! Создаем VB-проект - обычный Exe-файл. Добавляем форму. Сажаем на форму кнопку, пишем на ней "Закрыть". Задаем обработчик нажатия кнопки, а также обработчик события QueryUnload для формы:

               Private Sub Command1_Click()

                       If (semHNDL <> 0) Then RC& = ReleaseSemaphore(semHNDL, 1, CC&)

                       End

               End Sub

               Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

                       If (semHNDL <> 0) Then RC& = ReleaseSemaphore(semHNDL, 1, CC&)

                       Cancel = 0

               End Sub

              Public Declare Function CreateSemaphore Lib "kernel32" _
                                      Alias "CreateSemaphoreA" _
                                      (ByVal lpSemaphoreAttributes As Long, _
                                       ByVal lInitialCount As Long, _
                                       ByVal lMaximumCount As Long, _
                                       ByVal lpName As String) As Long

              Public Declare Function ReleaseSemaphore Lib "kernel32" _
                                     (ByVal hSemaphore As Long, _
                                      ByVal lReleaseCount As Long, _
                                      lpPreviousCount As Long) As Long

              Global semHNDL As Long

              Sub Main()

                  Err.Clear

                  semHNDL = CreateSemaphore(0, 0, 1, "Cats_Tail")

                  RC& = Err.LastDllError

                  If (RC& <> 0) Or (semHNDL = 0) Then
    
                     '::: Это - не первый экземпляр
    
                     MsgBox "Повторный запуск!"
    
                     End
    
                  End If

                  Form1.Show

              End Sub

    Для нашего проекта устанавливаем startup-объект - "SUB MAIN". Транслируем. Если теперь запустить полученный exe-файл, появится наша формочка с кнопкой "Закрыть". А теперь попробуйте запустить второй экземпляр exe-файла. Как Вы думаете, что произойдет? Правильно: выйдет сообщение "Повторный запуск". Вы можете копировать exe-файл в любую директорию (в т.ч. и в сеть). Запустить второй экземпляр все равно не удастся.
    Имейте в виду, что семафор привязан к процессу. Если Вы будете запускать проект из среды VB, то семафор не будет уничтожен до тех пор, пока Вы не закроете IDE.
    Имя семафора (в нашем случае - строка "Cats_Tail") может быть любым разумным.
    У меня этот фрагмент кода работает с 2002 года на добрых двадцати рабочих местах. Ошибок и проблем пока не возникало!
    Подробности использования семафоров - в знаменитой "Библии" API Дана Эпплмана. Еще одна неплохая книга на эту тему - "Программирование в Win32 API на Visual Basic" Стивена Романа.

Файфель Б.Л. (Cats_Tail@mail.ru)