Активация предыдущей инстанции приложения

[zHackLeX]

Действительно, как стопудово передать управление на прошлый экземпляр, а старый закрыть?
Как это делает Windows Media Player 8+?
Да, у меня ещё через мэйлслот передается Command$(), для этого вообще-то вся и затея: чтобы управлять приложением,
достаточно запустить ярлык к нему с соответствующим ключом
командной строки:
Программа, запустившись, видит, что она в системе не первая,
передаёт Command$ через мэйлслот первому экземпляру, а сама
на прощанье целует себя в... короче, сворачивается,
и передает управление первому экземпляру.

[Arcanoid]

Активировать предыдущий экземпляр = активировать его окно.
1)Найти процесс предыдущего экземпляра приложения (юзать Process32First(), Process32Next(), CreateToolhelp32Snapshot() ...);
2)Прошукать все потоки того процесса (Thread32First(), Thread32Next());
3)Найти нужное окно в потоках ( EnumThreadWindows() );
4)Отпостить ему WM_SHOW через PostMessage();
5)Или проинформировать процесс о чём надо, например через PostThreadMesage().

Закрыть текущий процесс:
PostQuitMessage(), End()

[Sebas]

zHackLeX

Ну и чё? Сам себе и ответил...

Arcanoid
У-тютю,
- а если стоит галка Unattended ?
- а если ехе переименовали?

[Arcanoid]

Sebas
а как ты переименуешь exe если он уже запущен?!

и, пардон, что значит Unattended? не слыхал..

[Ennor]

Sebas
а как ты переименуешь exe если он уже запущен?!

Возьми да попробуй - в NT это запросто.

[tyomitch]

и, пардон, что значит Unattended? не слыхал..

Возьми да посмотри: Project -> Properties -> Unattented Execution

[zHackLeX]

Ага. Как просто. Было бы всё ОК, если бы я разбирался, как обработать то, что пришло с PostMessage.
2) А что, AppActivate может помочь или нет?
Я пробовал, но он что-то не катит.

Как вообще пользовать AppActivate к ОСХу?
Положим, ОСХ мой, я знаю как называется (Caption) его форма, и знаю, как называется моя (хозяйская, на которой нарисован значок ОСХа) форма. Можно ли активировать её без АРI?

ЗЫ. никто не сталкивался с этим раньше?
ЗЗЫ. А если так: активируем форму ПОЛУЧАЯ сообщение, т. е., уже в своём процессе (т. е. при обработке сообщения первым экземпляром),
можно Appactivate? Я делал, но не катит Может что не так?

[ANDLL]

Мне кажеться, проще делать так:
1. Первое приложение создает скрытое окно с особым классом и заголовком.
2. Новый инстанс находит это окно(FindWindow), и посылает ему сообщение WM_ACTIVATE. Или, если тебя это не устраивает, посылай ему пользовательское сообщение(WM_USER+X)(и в параметрах передавай все, что еще нужно(скажем имена файлов и т.п.)

Ну а что бы активировать свою форму достаточно использовать Form.SetFocus

[tyomitch]

посылай ему пользовательское сообщение(WM_USER+X)(и в параметрах передавай все, что еще нужно(скажем имена файлов и т.п.)

Гы-гы-гы

Если на все имена файлов ему хватит 8 байт - тогда сработает

[zHackLeX]

Если на все имена файлов ему хватит 8 байт - тогда сработает

Ско-о-о-ка?? Да у меня через параметр командной строки передаются такие макро-команды, что и 256-то мало!!!

Ну это-то ладно. Но почему SetFocus-то не пашет?!

[Arcanoid]

Sebas
а как ты переименуешь exe если он уже запущен?!

Возьми да попробуй - в NT это запросто.

Ну, если нравится самому себе рыть яму, то что ж тут поделаешь...

[ANDLL]

посылай ему пользовательское сообщение(WM_USER+X)(и в параметрах передавай все, что еще нужно(скажем имена файлов и т.п.)

Гы-гы-гы

Если на все имена файлов ему хватит 8 байт - тогда сработает

А почему именно восемь байт? Тебе напомнить про API-функцию GlobalAlloc?

[alibek]

А почему именно восемь байт? Тебе напомнить про API-функцию GlobalAlloc?

А зачем эти шаманские танцы, если есть пайпы и майлслоты?

[zHackLeX]

Ладно, а с SetFocus ещё пошаманю.
А то что-то не то...

[GSerg]

А почему именно восемь байт? Тебе напомнить про API-функцию GlobalAlloc?

А тебе напомнить, что на 32-разрядных виндах действие функции GlobalAlloc аналогично действию функции LocalAlloc?

[ANDLL]

Вот блин... В моей книжке по C++ есть пример передачи данных с использованием GMEM_SHARE. А в MSDN написано, что этот флаг не работает. Вот и верь после этого книжкам.
И что же в Windows не существует глобальных областей адресного прстранства?

[Antonariy]

ANDLL писал(а):
А почему именно восемь байт? Тебе напомнить про API-функцию GlobalAlloc?

А зачем эти шаманские танцы, если есть пайпы и майлслоты?

А еще можно передать StrPtr.

[ANDLL]

Именно этого делать и нельзя... Именно это и вызвало смех у Темыча.

[GSerg]

И что же в Windows не существует глобальных областей адресного прстранства?

А ты позырь в Кирпичах, как Тёмыч сделал маршалер.

[Worobjoff]

Когда я еще учился VB6, где-то в начале книги был такой пример кода.

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

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
                (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
               
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
                    ByVal NcmdShow As Long) As Long

Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

Private Const SW_RESTORE = 9

Private Sub Form_Load()
   Dim sTitle As String
   Dim hwnd_ As Long
   Dim lRetVal As Long
   If App.PrevInstance Then
      sTitle = Me.Caption
      App.Title = "Новая копия"
      Me.Caption = " Новая копия"
      hwnd_ = FindWindow(vbNullString, sTitle)
      If hwnd_ <> 0 Then
          lRetVal = ShowWindow(hwnd_, SW_RESTORE)
          lRetVal = SetForegroundWindow(hwnd_)
      End If
      Unload Me
      End
   End If
End Sub

Здесь не передается Command, но по-моему, этот пример можно взять за основу и доработать.

[GSerg]

Этот пример лучше не брать за основу и дорабатывать. Потому что он довольно громоздко замещает стандартную функцию AppActivate...

[Mizin Alex]

Как вариант:
Public Function RestorePrevInstance(strCaption As String) As Boolean
Dim iCount As Integer
Dim i As Long
Dim pos As Integer
Dim lngEnum As Long
Dim udtCurrWin As WINDOWPLACEMENT
Dim lngLenArray As Long

ReDim strCaptions(0)
ReDim lngHandle(0)


lngEnum = EnumWindows(AddressOf Callback1_EnumWindows, 0)

iCount = 0

lngLenArray = UBound(strCaptions)

For i = 0 To lngLenArray

pos = InStr(1, strCaptions(i), strCaption, vbTextCompare)

If pos > 0 Then
udtCurrWin.Length = Len(udtCurrWin)
Call GetWindowPlacement(lngHandle(i), udtCurrWin)

If udtCurrWin.showCmd = SW_SHOWMINIMIZED Then
udtCurrWin.Length = Len(udtCurrWin)
udtCurrWin.Flags = 0&
udtCurrWin.showCmd = SW_SHOWNORMAL
Call SetWindowPlacement(lngHandle(i), udtCurrWin)
End If

Call SendMessage( lngHandle(i), &H112, SC_RESTORE, 0)
iCount = iCount + 1
End If
Next

If iCount >= 1 Then
RestorePrevInstance = True
Else
RestorePrevInstance = False
End If

End Function

Public Function Callback1_EnumWindows(ByVal hWnd As Long, ByVal lpData As Long) As Long
Dim cnt As Long
Dim strTitle As String * 256

cnt = GetWindowText(hWnd, strTitle, 255)

If cnt > 0 Then
ReDim Preserve lngHandle(UBound(strCaptions) + 1)
ReDim Preserve strCaptions(UBound(strCaptions) + 1)
strCaptions(UBound(strCaptions)) = Left$(strTitle, cnt)
lngHandle(UBound(lngHandle)) = hWnd
End If

Callback1_EnumWindows = 1
End Function

С ув.Alex

[tyomitch]

Mizin, твой пример, как и предыдущий, не передаёт параметры.

[ANDLL]

2tyomitch:А чем плох тогда твой маршалер? Чего ты смеялся то?

[tyomitch]

Мой маршалер ничем не плох

Смеялся я потому, что возни с маршалингом выходит намного больше, чем при использовании некривых способов решения данной задачи - таких, как пайпы.