App.PrevInstance

[Чудик]

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

Private Sub Form_Load()
    If App.PrevInstance = True Then
        Me.Visible = True
        Exit Sub
    Else:
        Me.Visible = False
    End If
End Sub

Почему при повторном запуске помимо того, что форма становиться видимой (как задумано) в диспетчере задач Windows отображается, что якобы запускается вторая копия программы? Мне нужно, чтобы всегда было запущено не более одной копии.

[tyomitch]

Вместо "Exit Sub" напиши "Unload Me"

[Чудик]

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

[alibek]

Передаешь в первый экземпляр программы команду "Активировать" (способы передачи - поиск по форуму), после чего закрываешь вторую копию программы (Unload Me).

[Чудик]

ОК, нашел.

[Чудик]

Использую так:

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

Private Sub ShowPrevInstance()
    Dim OldTitle As String
    Dim ll_WindowHandle As Long
    OldTitle = App.Title
    App.Title = "abcba - This App Will Be Closed"
    ll_WindowHandle = FindWindow(vbNullString, OldTitle)
    If ll_WindowHandle = 0 Then Exit Sub
    ll_WindowHandle = GetWindow(ll_WindowHandle, GW_HWNDPREV)
        Call OpenIcon(ll_WindowHandle)
        Call SetForegroundWindow(ll_WindowHandle)
    End
End Sub

Private Sub Form_Load()
If App.PrevInstance = True Then
    ShowPrevInstance
Else:
    Me.Visible = False
End If


т.е. как было сказано - передаю активное состояние первому приложению, а второе закрываю. Но почему-то первое, может и становиться активным, но видимым не становиться. Что-то не так?
Причем вместо Visible я использовал и ShowWindow(ll_WindowHandle, SW_.......) - на всякий случай, но без изменений!

[tyomitch]

А зачем там строчка "ll_WindowHandle = GetWindow(ll_WindowHandle, GW_HWNDPREV)"? Имхо она лишняя...

[Чудик]

Убрал, но приложение не приобретает видимости при повторном запуске все-равно!

[Konst_One]

может проще надо, у главной формы первого приложения добавляй:

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

me.Setfocus
me.windowstate=vbNormal


[Чудик]

Нет, не имеет смысла. Во-первых, это и реализовывается через API. Во-вторых, если написать через Ме......, то это примениться ко второму приложению, а не к первому. Здесь не будет никакого идентификационного признака окна (приложения).

[Чудик]

Такая затертая тема, неужто никто не подкинет идейку!!!!!!!!!!!!!!!!!!!!!!!!!!

[ism]

Через API лутше, App.PrevInstance только на один экзэшнк, а может быть копия в другой папке

А если твою старую сделать активной она нормально продолжит работу.

[Ruslan Demidow]

Такая затертая тема, неужто никто не подкинет идейку!!!!!!!!!!!!!!!!!!!!!!!!!!

Может быть вместо SetForegroundWindow(ll_WindowHandle) использовать ShowWindow, с параметром WM_RESTORE? А потом уже использовать SetForegroundWindow(ll_WindowHandle) .

[Plohish]

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

Dim OldTitle As String
    If App.PrevInstance Then
        OldTitle$ = App.Title
        App.Title = "unwanted instance"
        AppActivate OldTitle
        SendKeys "% R ~", True
        End
    End If


[серверянин]

Если первый экземпляр свернут в панель задач, то выше сказанный способ вызывает Run-time error 5.
Кроме того, у меня на него зазвонил антивирь, которому показалось, будто вирус перехватил управление клавиатурой.

Я эту задачу решаю обыкновенно так:

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

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long



Private Sub Form_Load()
    Me.Tag = Me.Caption
    If App.PrevInstance = True Then
        Me.Caption = Me.Tag + "###"   'смена заголовка, чтобы не был как у предыдущего окна
        'нахождение и показ предыдущего окна по его заголовку
        i = FindWindow(vbNullString, Me.Tag)
        Call ShowWindow(i, 9): Call SetForegroundWindow(i)
        End    'закрытие второго экземпляра
    End If

' (место для дальнейших команд)
'       .......
   
End Sub


(Жаль, что ответил так поздно )