Запуск одной проги при помощи второй (проверка)

[Yurk@]

Доброго временни суток!
Подскажите!
Есть 2 файла: 1.ехе и 2.ехе.
Можно ли как-то проверить: файл 2.ехе запустила именно программа 1.ехе или какая-то другая?
Если это возможно - то как?

[BOBAH13]

Сканировать список процессов и получать имя файла.... thlhelp32 - вроде так модуль называется, он содержит все необходимое !

[Трофимов Александр]

Можно через атомы реализовать(типа глобальных переменных, если не понятно). Как это реализуется, можно найти в примерах однократного запуска программы за текущий сеанс пользователя. У меня в help'е есть, если не найдёшь выдеру оттуда.

[Jeni]

Сообщение от Yurk@

Можно ли как-то проверить: файл 2.ехе запустила именно программа 1.ехе или какая-то другая?

Если оба файла твои собственные (есть исходники), то можно добавить проверку переданных параметров, т.е. 1.exe запускает программу 2.exe с параметром X, а 2.exe проверят, имеется ли параметр X. Если да - всё в порядке.

[Yurk@]

А можно хоть маленький примерчик.
Просто, я с этим никогда не работал

[Domovoy]

Так проги обе твои?

[Yurk@]

Ну да, раз уже спрашиваю.

[Jeni]

Сообщение от Yurk@

А можно хоть маленький примерчик.

Это пример вызывающей программы:

ShellExecute(0, nil, PAnsiChar('2.exe'), '/XXX', nil, 1);

'/XXX' - это передаваемый для проверки параметр.

Это проверка на наличие нужного параметра. Сделал в цикле, потому что могут передаваться и другие параметры в разных сочетаниях.

  for I := 1 to ParamCount do
    if UpperCase(ParamStr(I)) = '/XXX' then ДЕЙСТВИЯ

ParamCount - это количество переданных параметров.
Функция ParamStr - возвращает параметр с заданным индексом.

[Yurk@]

ОГРОМНЕЙШОЕ СПАСИБО ВСЕМ

[Yurk@]

Такой вопросик:
А если мне нужно передать 2 и больше параметров - как их записать в командной строке????