Как узнать имя приложения, которое вызвало данное приложение / Visual Basic

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как узнать имя приложения, которое вызвало данное приложение

6 сообщений из 6, страница 1 из 1

Как узнать имя приложения, которое вызвало данное приложение

#37727861

donpauls

Гость

Допустим моё приложение называется "proga1.exe" и находится на C:\proga1.exe

В коде главной формы этой программы находится:

Код: vbnet

1.
2.
3.

Private Sub Form_Load()
MsgBox command
End Sub

При загрузке программы всплывает сообщение с текстом параметров, с которыми она была запущена, например, если в другой программе с именем "proga2.exe" запустить этот код:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.

Private Sub Command1_Click()
Dim stAppName As String
      
        stAppName =  "C:\proga1.exe 12345"
        Call Shell(stAppName, 1)

End Sub

То proga1 запустится и отобразит сообщение с текстом "12345"

Это всё понятно. А как определить в proga1, кто её запустил?
Т.е. это сделала proga2.exe или какое-то другое приложение?
И чтобы вывести имя этого приложения тоже в сообщении.

...

Рейтинг:

0 / 0

28.03.2012, 16:47

| Ответить | Цитировать | Написать

Как узнать имя приложения, которое вызвало данное приложение

#37727929

QValD

Участник

Сообщения: 174

Рейтинг: 0 / 0

donpauls,

передавать во "2-й проге" вместо 12345 значение app.title или app.EXEName

...

Рейтинг:

0 / 0

28.03.2012, 17:05

| Ответить | Цитировать | Написать

Как узнать имя приложения, которое вызвало данное приложение

#37727949

donpauls

Гость

QValDdonpauls,

передавать во "2-й проге" вместо 12345 значение app.title или app.EXEName

Нет, не подходит. 2я прога передаёт ТОЛЬКО параметр.

...

Рейтинг:

0 / 0

28.03.2012, 17:10

| Ответить | Цитировать | Написать

Как узнать имя приложения, которое вызвало данное приложение

#37727975

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

ищите свою прогу по app.ThreadID в списке запущенных процессов и смотрите parent в иерархии

...

Рейтинг:

0 / 0

28.03.2012, 17:26

| Ответить | Цитировать | Написать

Как узнать имя приложения, которое вызвало данное приложение

#37728081

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

http://vbnet.mvps.org/index.html?code/enums/enumwindowsdemo.htm

...

Рейтинг:

0 / 0

28.03.2012, 17:59

| Ответить | Цитировать | Написать

Как узнать имя приложения, которое вызвало данное приложение

#37728177

donpauls

Гость

Konst_Oneищите свою прогу по app.ThreadID в списке запущенных процессов и смотрите parent в иерархии

А можно пожалуйста пример?

...

Рейтинг:

0 / 0

28.03.2012, 18:40

| Ответить | Цитировать | Написать

6 сообщений из 6, страница 1 из 1

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

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

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&gotonew=1&tid=2157945]:	0ms
get settings:	8ms
get forum list:	15ms
check forum access:	4ms
check topic access:	4ms
track hit:	29ms
get topic data:	10ms
get first new msg:	8ms
get forum data:	3ms
get page messages:	53ms
get tp. blocked users:	1ms
others:	13ms

total:	148ms