запуск программы

[fallen]

как передать в первую копию программы входящий параметр при запуске второй копии? в смысле вторая копия запускается с входящим параметром, который должна воспринять первая копия, а вторая копия должна завершиться. как в winamp'е, если выделить несколько файлов и нажать Play in Winamp.

[Cyrax]

посмотри на [url]vbrussian.com[/url] в примерах. что-то там проскакивало такое.

[alibek]

Смысл в том, что:
1. Программа запускается и проверяет, не запущен ли уже один ее экземпляр.
2. Если нет, то все. Если один экземпляр уже запущен, то она связывается с первым экземпляром и передает ей какие-то данные (например, параметры командной строки).

Естественно, вся загвоздка в обмене данными между двумя экземплярами программ. Есть шесть основных способа.
1. Через временные файлы. Т.е. прога с какое-то периодичностью сканирует определенный каталог, и если там появляются файлы (которые создаст второй экземпляр), то обрабатывает их и, после обработки, удаляет. Недостатки: криво, некрасиво и винт тарахтит.
2. То же, но через буфер обмена. Недостатки: криво, некрасиво и не сохраняется содержимое буфера.
3. То же, но через реестр. Недостатки: криво, некрасиво, засоряется реестр.
4. Использование механизма DDE. Недостатки: нужно регистрировать DDE-сервер.
5. Использование механизмов OLE (ActiveX-Server). Недостатки: слишком громоздко для небольшого приложения.
6. Обмен сообщениями через SendMessage. Элегантно, эффективно, но сложно.
6.1. Разновидность 6. На форме имеется невидимый TextBox, в котором на событии Change осуществляется обработка содержимого TextBox, в котором указываются команды и данные. А содержимое TextBox'а изменяет второй экземпляр программы (через API).

[fallen]

Просматривая пример из предыдущего ответа, я пришел к мысли, что вариант 6.1. является самым оптимальным. Только вот я ламер и не знаю как это сделать. Не подскажешь, как это организовать???

[alibek]

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

Но общай схема такова.
1. Размещаешь на форме невидимый TextBox, в свойство .Text указываешь какой-нибудь заранее определенный текст, например "<APP-DATA-EXCHANGE>".
2. В контексте формы нужно объявить следующие Private-переменные: ExchMode и ExchConfirm.
3. Когда форма загрузиласть, проверяешь на App.PrevInstance=True. Если нет, то больше ничего не делаешь. Если App.PrevInstance=True, то используется следующий алгоритм:
3.1. Ищешь хэндл окна экземпляра1 через API FindWindow.
3.2. В полученном хэндле ищешь хэндл нужного TextBox'а через API FindWindowEx (искать будешь по тексту "<APP-DATA-EXCHANGE>")
3.3. Все, у тебя имеется хэндл нужного TextBox'а. Устанавливаешь ExchMode=True. Записывать и считывать с него текст можно функциями API SetWindowText/GetWindowText.
4. Устанавливаешь соединение Например, записываешь в экз.1 строку вида "CONNECT, HWND=12345", где 12345 -- хэндл TextBox'а у экз.2 (чтобы экз.1 тоже мог "установить соединение")

Кроме того, в форме должен присутствовать обработчик событий примерно такого вида:

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

Private Sub txtDataExchange_Change()
Select Case ExchMode
  Case True
    'Работает экземпляр2.
    'Если получено подтверждение, то установить ExchConfirm=True
  Case False
    'Работает экземпляр1.
    'Прием и обработка команд.
End Select
End Sub

Разумеется, следует разработать какой-либо протокол обмена данными. Т.е. вначале оба экземпляра устанавливают соединение и т.п.

[fallen]

спасибо.

[sslion]

Я те щас пример вышлю - как это должно быть на самом деле...

sslion2000@mail.ru

[Алекс]

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

[ProgrammerVB]

Подскажите как запустить из своего приложения Project1.vbp

[Qubicz]

ShellExecute

[ProgrammerVB]

ShellExecute не работет выдает "sub or function not defined"

[FaKk2]

ProgrammerVB

Сходи все таки по ссылке в моей подписи.

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

[kirrun]

ShellExecute не работет выдает "sub or function not defined"

STFW