Обнаружить одновременное выполнение нескольких экземпляров можно, например, вызвав функцию Visual Basic FindWindow при первом запуске приложения. Она проверяет, запущены ли уже его копии. Этот способ работает почти всегда, но он не самый эффективный — например, если пользователь быстро откроет подряд две копии программы, функция FindWindow может дать неверный ответ.
Альтернатива этому методу — использование свойства Prevlnstance объекта Арр. Оно позволяет проверить, была ли уже запущена копия данного приложения.
Пример В этом коде на Visual Basic для обнаружения выполняющейся копии приложения применяется событие Load:
Private Sub Form_Load()
' Проверка наличия выполняющейся копии приложения
If Арр.Prevlnstance = True Then
MsgBox "Это приложение уже запущено.", vbCritical, "MyApp"
End
End If
End Sub
> Проверка наличия работающей копии программы в Visual Basic
Private Sub Form_Load( ) If Арр.Prevlnstance Then MsgBox "Эта программа уже запущена." Unload Me End If End Sub
После запуска программы на экране появится форма Fonnl.
На экране появится созданное Вами в Visual Basic окно с сообщением, информирующем, что один экземпляр приложения уже запущен.