Запрет запуска второго экземпляра приложения

[kuguar]

Ребят, если кому попадалась статья на просторах родного VBStreet, с раскрытием вопроса (Запрет запуска второго экземпляра приложения) - подскажите - где лежит, а то второй час ползаю и все безуспешно, А ведь помню - где-то видел

[tyomitch]

Код: Выделить всё

If App.PrevInstance Then End

[kuguar]

Спасибо, уважаемый Tyomitch!

[BV]

Дежавю... http://bbs.vbstreets.ru/viewtopic.php?t=23640

[Twister]

Код: Выделить всё

If App.PrevInstance Then End

tyomitch, ну зачем давать заведомо неправильный ответ? Ведь этот способ не сработает, если ЕХЕ запускать из разных мест...

[tyomitch]

Дык может, именно это и требуется?

[Twister]

По отмазкам?

[.:[nnn]:.]

Можно ещё Mutex использовать...

Const ERROR_ALREADY_EXISTS = 183&
Private Declare Function CreateMutex Lib "kernel32" Alias "CreateMutexA" (lpMutexAttributes As Any, ByVal bInitialOwner As Long, ByVal lpName As String) As Long
Private Declare Function ReleaseMutex Lib "kernel32" (ByVal hMutex As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Sub Form_Load()
Dim hMutex As Long
hMutex = CreateMutex(ByVal 0&, 1, App.Title)
If (Err.LastDllError = ERROR_ALREADY_EXISTS) Then
ReleaseMutex hMutex
CloseHandle hMutex
MsgBox "приложение уже запущено"
End
End If
End Sub

[tyomitch]

Угу. А ещё окно, атом, семафор, трубу, и чёрта в ступе.
Полная свобода для креатива.

[kostyanet]

App.PrevInstance локально работает, но не удается активировать уже запущенное приложение.

То есть, чтобы вместо запуска еще одной копии, активировалось окно уже запущенной.

[tyomitch]

тогда в поиск.

[kostyanet]

Блин, я по-русски насчет ключевых слов не уверен, но попробовал "активировать окно" - еще две темы кроме этой, и никакого отношения к вопросу.

То есть, я же подразумеваю что AppActivate не работает в таких условиях. Равно как и АПИшные вызовы. Хотя, может я не все проверял.

Идея такая что первое приложение должно само себя активировать по сообщению второго, которое подыхает тут же.

[tyomitch]

Блин, я по-русски насчет ключевых слов не уверен, но попробовал "активировать окно" - еще две темы кроме этой, и никакого отношения к вопросу.

То есть, я же подразумеваю что AppActivate не работает в таких условиях. Равно как и АПИшные вызовы. Хотя, может я не все проверял.

Видимо, не всё.
http://bbs.vbstreets.ru/viewtopic.php?t=17316