О том как запретить повторный запуск программы смотрим далее…

Доброго времени суток! Сегодня мы разберем очень простую программку которая запретит повторный запуск .exe файла. В моей практике бывали случаи когда повторный запуск одной и той же программы мог привести к катастрофическим последствиям (например наша прога ведет лог в C:\log.log и мы запускаем еще одну копию проги которая начинает либо его переписывать либо создаст переполнение и выдаст ошибку). Но лог это еще цветочки по сравнению с ситуацией когда прога использует файл конфигурации, русурс или того хуже оперирует файловой системой. Хотя на бейсике многое из вышеперечисленного реализовать сложно, возможность запрета повторного запуска желательно знать.

Private Sub Form_Load()
If App.PrevInstance = True Then
MsgBox "Копия программы уже запущена!", vbExclamation, "Предупреждение"
End
End If
End Sub

Первая строка сообщает о процедуре загрузки формы (своего рода событие)
Во второй строке мы поставили условие — Если Приложение.Запущено = правда тогда
Третья строка выбивает нам окошко с предупреждением о повторном запуске приложения
Четвертая строка закрывает нашу программу (выгружает из памяти)
В пятой мы закрыли условие If
Шестая строка говорит о завершении процедуры