Народ, кто может подсказать как в Delphi получить PID вновь созданного процесса? #528563

Есть самописная программулина, которая висит на прокси и с заданной периодичность считывает почту с указанных почтовых ящиков и запускает 1С 7.7 для обработки полученных файлов. В один момент может запскаться несколько экземпляров 1С в разных потоках с помощью следующего кода: procedure TThread1C.Execute; ... try CoInitializeEx(nil,COINIT_APARTMENTTHREADED); mProgV77 := CreateOleObject('v77s.Application'); mresult := mProgV77.Initialize(mProgV77.RMTrade, ComandLine,'NO_SPLASH_SHOW'); except on E: EOleError do frmMain.Memo1.Lines.Add('**** Ошибка: ' + E.Message); end; if mresult then begin try mresult := mProgV77.EvalExpr('OpenForm("Отчет","' + FSprSotr_ID + '","' + mPathERT + '")'); except on E: EOleError do frmMain.Memo1.Lines.Add('**** Ошибка: ' + E.Message); end; end; coUnInitialize; ... end; Вопрос, возможно ли каким то образом в данной процедуре получить PID запущенного процесса 1С?

Собери все процессы 1Сv7 до запуска по оле и после, наверное сразу будет видно кто новенький ;)

думал уже, как вариант, да. Проще никак, чтобы сразу вновь запущенного процесса?

Может какой хук повесить на систему, или запускать не оле, а сразу процесс

а каким образом можно запустить сразу процесс с вызовом обработки 1С с указанными параметрами?

может ShellExecuteEx поможет: ?

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

спасибо, изучаю не вариант

передать из адинесы пойдет ?

всем спасибо, сделал через сравнение списка процессов до и после старта 1С

Я делал через глобальную переменную общего модуля

Косячно не надо глобальной переменной

а вообще из делфи думаю список дочерних процессов получить не сложно и позырить какой из оных адинес и имеет параметр -Embedding

самый правильный вариант, только у меня на строке: service:=locator.ConnectServer('.','root\cimv2'); вываливается ошибка: EOLEException Сервер RPC недоступен хотя служба "Удаленный вызов процедур (RPC)" запущена и работает Может еще подскажешь, что не так? не настолько глубоко владею программированием в API (

+ можно к тебе в аську стукнуться, пообщаться?

клевый код... в потоке обращаться к vcl do frmMain.Memo1.Lines без всяких там Synchronize...

var dw1CPID: DWORD; mProgV77 := CreateOleObject('v77s.Application') OleCheck(CoGetServerPID(mProgV77, dw1CPID));

(16+) CoGetServerPID качни тут

Миша, а он не будет дочерним что ли ? хотя в васике (не скрипт) тоже не дочерний :(

вместо точки попытайся 'localhost' или Null (ну или что там есть в делфях)

Спасибо тебе.

, спасибо, в понедельник попробую

MMF спасибо, работает, правда только на х32 платформе. У меня на моем компе Win 7 x64 Ultimate и CoGetServerPID(mProgV77, dw1CPID) возвращает 65535. Но это уже мелочи, главное что на прокси Win 2003 x32 и все работает )