Определение второй инстанси

[Alexander N. Samarin]

Определять, запущена ли вторая инстансь, можно попробовать следующими способами:
1) Взять список процессов и найти "свой"
2) App.PrevInstance
3) Проверка записи в реестр/файл

У кого будут какие мысли?

[_Мика_]

2.

[Alexander N. Samarin]

Непонял

[_Мика_]

if App.PrevInstance then
end
ednif

[Alexander N. Samarin]

if App.PrevInstance then
end
ednif

Это не работает, если программы лежат в разных папках

[_Мика_]

тогда первое

[alibek]

Нет, тогда мьютекс (Mutex). Или майлслот. Или именованный пайп. Или что-нибудь аналогичное.

[Alexander N. Samarin]

Нет, тогда мьютекс (Mutex). Или майлслот. Или именованный пайп. Или что-нибудь аналогичное.

А в переводе

[Ennor]

Синхронизация вообще:
http://msdn.microsoft.com/library/defau ... zation.asp
Мьютексы в частности:
http://msdn.microsoft.com/library/defau ... emutex.asp

Мэйлслоты:
http://msdn.microsoft.com/library/defau ... lslots.asp

Пайпы вообще:
http://msdn.microsoft.com/library/defau ... /pipes.asp
Создание именованного канала (named pipe) в частности:
http://msdn.microsoft.com/library/defau ... edpipe.asp

Насчет чего-нить еще: MSDN, раздел "Interprocess Communication".

[Alexander N. Samarin]

Все по-английски, ничего не понятно. Дайте, кто может, что-нибудь совсем разжеванное

[ANDLL]

http://bbs.vbstreets.ru/viewtopic.php?p=105382

Оно?

[Amed]

Используй мутексы...
В апи-гайде есть прямо замечательный пример как раз на сабж топика. См. в категории "Mutex".

[Amed]

Ну ладно, выложу уж код, упреждая вопросы "А что такое апи-гайд?" и "Где его скачать?"...

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

'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

[Eduard]

А если прогу просто-напросто убить через Таск Мэнэджер, то она больше не запустится, если она проверяет инстанту через Mutex... ваши предложения....

[alibek]

Если процесс убивается (неважно, каким способом), то мьютекс тоже убивается.

[Amed]

Иными словами, мутекс привязан к конкретному процессу? Можно ли узнать, к какому процессу привязан мутекс?

[alibek]

Amed, Windows конечно знает, кто с кем связан. А вот как эту информацию получить... Это посмотреть надо.

[Amed]

alibek
Естественно, Windows знает. Было бы смешно, если б не знал

Представляю себе действия Windows:
1) вот, надо закрыть процесс
2) ой, у нас мутексы есть созданные... интересно, есть ли мутекс у этого процесса
3) ну ладно. выгрузим на всякий случай все
4) *аплодисменты*

[Alexander N. Samarin]

Смешно!!!
А по теме