| Вопрос: Повторный запуск программы | Добавлено: 11.06.04 09:53 |
Автор вопроса:  astoro | ICQ: 649109 |
|
Подскажите пож., как при повторном запуске программы, она не запускалась заново, а открывала уже запущенную? Проверить на запуск я знаю: App.PrevInstance, а как активизировать уже запущенную??? |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #1 | Добавлено: 11.06.04 10:05 |
| AppActivate | ||
|
Номер ответа: 2 Автор ответа: astoro ICQ: 649109 Вопросов: 31 Ответов: 391 |
Профиль | | #2 | Добавлено: 11.06.04 10:16 |
| Если приложение свернуто, то не разворачивается, А если не свернуто - тогда работает, т.е. переходит на первый план, а как сделать чтобы в случае чего и разворачивалось тоже? | ||
|
Номер ответа: 3 Автор ответа: PashenkoICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #3 | Добавлено: 11.06.04 10:25 |
|
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal cCmdShow As Long) As Long Dim PrevApp As Long, lOK1 As Long If App.PrevInstance Then PrevApp = FindWindow(vbNullString, Me.Caption) If PrevApp <> 0 Then lOK1 = ShowWindow(PrevApp, 9) lOK1 = ShowWindow(PrevApp, 10) End If End End If |
||
|
Номер ответа: 4 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #4 | Добавлено: 11.06.04 14:10 |
| Я сделал проверку командной строки + систему сообщений меж программой и плагшинами на основе WM_COPYDATA | ||
Страница: 1 |