Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > VB6 > Открыть программу не более одного раза


Автор: max85 13.7.2007, 10:22
Подскажите, как мне это сделать?

Автор: Naghual 13.7.2007, 10:47
Код
If App.PrevInstance = True Then
    MsgBox "Экземпляр программы уже запущен!"
End If

Автор: max85 13.7.2007, 10:59
Спасибо!
Вот только при строке MsgBox "Экземпляр программы уже запущен!"
программа выдаёт сообщение и открывается. Я поставил просто 
Код

If App.PrevInstance = True Then
    MsgBox "Экземпляр программы уже запущен!"    
    End
End If

Все получается smile

Автор: Naghual 13.7.2007, 11:23
Ну так я же тебе просто показал принцип.
А как именно ты реализуешь закрытие - это уже твоя задача.

Автор: Akina 13.7.2007, 12:10
Цитата(max85 @  13.7.2007,  11:59 Найти цитируемый пост)
Я поставил просто 

Так можно делать, если заведомо до проверки не было выполнено открытие на использование каких-либо ресурсов, в т.ч. неявно. Иначе надо не просто End, а организовать корректный выход с очисткой ресурсов.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)