Как запретить дважды запускать программу?

[Toxa]

т.е. как проверить, что программа уже запущена?

[tyomitch]

App.PrevInstance

[Toxa]

App.PrevInstance

Прошу прощения...нельзя ли по подробнее...

[tyomitch]

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

Private Sub Form_Load()
    If App.PrevInstance Then MsgBox "Уже был запущен" Else MsgBox "Ещё не был запущен"
End Sub


[Toxa]

мне постоянно False выдает...даже если программу пятый раз запускаешь...

[A.A.Z.]

Toxa прав, у меня то же самое... Может, опять без API не обойтись?

[GSerg]

А у меня работает
Вот она, сила и превосходство Win98

А вам тогда чё.... mutex создавать

[Amed]

Да, по-правильному нужен Mutex.

Кстати, меня App.PrevInstance тоже работает (XP/SP2);)
Работать не будет, если запустить то же приложение из другого места.

'Code by Adam Verwijs
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
'Try to create a new Mutex
hMutex = CreateMutex(ByVal 0&, 1, App.Title)
'Did the mutex already exist?
If (Err.LastDllError = ERROR_ALREADY_EXISTS) Then
'Clean up
ReleaseMutex hMutex
CloseHandle hMutex
'More than one instance detected
MsgBox "More than one instance"
End
Else
'form load code
End If
End Sub

[Konst_One]

может вы господа в своих проектах имеете процедуру Main для запуска приложения? так вставьте эту проверку в самое ее начало

[Konst_One]

у меня на любом компе работает App.PrevInstance, а что у вас за операционка такая?

[Ennor]

Ребята, а вы, часом, не из-под IDE запускаете? Если да, то и не должно работать...

[A.A.Z.]

Нет, я компилил (в разные папки)

[Dzhon]

Шото парни у Вас не так, работает спокойно...

[Ennor]

В разных папках работать не будет, т.к. разные полные пути. Эта штука работает только в пределах одного и того же ехе, из одного и того же места. Альтернатива - только мьютекс, как уже и было сказано...

[Jenizix]

А можно поступить по ламерски... Если только очень приспичит...
При запуске проверять есть ли уже окно с таким именем, если да то End...

[tyomitch]

В разных папках работать не будет, т.к. разные полные пути. Эта штука работает только в пределах одного и того же ехе, из одного и того же места. Альтернатива - только мьютекс, как уже и было сказано...

Не только. Хоть атом, хоть окно необычного класса (по сути, тот же атом), хоть какие-нибудь именованные объекты (события, трубы, etc.)
Вариантов мульён, один хитрее другого

[HotKitten]

If App.PrevInstance = True Then
MsgBox "прога уже запущена!", 16, "Error"
End
End If

всё время этим кодом пользуюсь, в WinNT пашет

[tyomitch]

HotKitten, первую страницу топика прочитай. Там как раз этот код обсуждается.

[Toxa]

Господа, спасибо за ответы...
App.PrevInstance действительно работает, просто я второй раз пытался запускать прогу из VB...

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

[tyomitch]

Посмотри пример на http://bbs.vbstreets.ru/viewtopic.php?p=62914#62914 - передача параметра в первую копию программы.

[Sebas]

Весь флейм из за того, что никто не знает, что понимается под "второй копией".

-Откуда она запускается?
Опа! Половина советов(включая App>PrevInstance) отпало.

- а программа содержит окна виндовс?
Опа! отпали варианты и с FindWindow

-Программу переименовали?
Опа! Просмотр процессов отпал!

оставшиеся варианты:
-По процессам, если в ЕХЕ зашито имя файла.

-Организация серверного прослушивания. Реализация на усмотрение.

ЗЫ: Возможно Вас устроит и первый вариант...

[Sebas]

Да, по-правильному нужен Mutex.

Кстати, меня App.PrevInstance тоже работает (XP/SP2);)
Работать не будет, если запустить то же приложение из другого места.

'Code by Adam Verwijs
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
'Try to create a new Mutex
hMutex = CreateMutex(ByVal 0&, 1, App.Title)
'Did the mutex already exist?
If (Err.LastDllError = ERROR_ALREADY_EXISTS) Then
'Clean up
ReleaseMutex hMutex
CloseHandle hMutex
'More than one instance detected
MsgBox "More than one instance"
End
Else
'form load code
End If
End Sub

Интересный вариант, только:

-нафиг закрывать мютекс если он сорвался?

-а если прога вылетет по GPF или просто на мютекс не зарелизиться. Он останется?

[tyomitch]

2Sebas: мой пример с мэйлслотом проходит все три твоих "теста" (таймер можно заменить на класс), и не является ни одним из твоих "оставшихся вариантов".

Ещё, если владелец мутекса умирает (любым способом), то мутекс освобождается. Т.ч. мутексы здесь - самое то

----------

If a thread terminates without releasing its ownership of a mutex object, the mutex object is considered to be abandoned. A waiting thread can acquire ownership of an abandoned mutex object, but the wait function's return value indicates that the mutex object is abandoned. It is best to assume that an abandoned mutex object indicates that an error has occurred and that any shared resource being protected by the mutex object is in an undefined state. If the thread proceeds as though the mutex object had not been abandoned, its "abandoned" flag is cleared when the thread releases its ownership. This restores normal behavior if a handle to the mutex object is subsequently specified in a wait function.