- Предотвращение запуска нескольких копий
Вашей программы одновременно
Описание
Представьте
себе, что Ваша программа потребляет достаточное
количество системных ресурсов. А какой-то умник
запустит ее у себя на машине не два и не три
раза... Ниже представлен код, который позволяет
избежать указанной проблемы.
Идея доработанного кода: Boris
Fedotov
Пример
использования
Public
Sub Main()
Dim Title As String
If App.PrevInstance Then
Title = App.Title
App.Title = "Temp"
AppActivate Title, False
Else
frmMainWindow.Show 1
End If
End Sub
ОБСУДИТЬ СТАТЬЮ
НА ФОРУМЕ
