Вызов диалогового окна 1С через OLEAutomation

[rdaler]

Народ, помогите ПРАВИЛЬНО вызвать диалог выбора элемента справочника (Метод "Выбрать()/Choose()").
Подключаюсь к 1С методом динамического  связывания.
Окно авторизации показывается активным (поверх окна вызывающего приложения), а диалоговое окно неактивно (под окном вызывающего), что не есть ГУД.
Если подключаться к 1С без вызова диалога авторизации (прописать нужные параметры), то в первый раз диалог отображается правильно, а все остальные вызовы проходят как и в первом случае (в неактивном окне).

[Kivals]

ИМХО - глюк платформы. Средствами 1С вроде бы никак не побороть - или писать addin для 1С, или программу, которая мониторит окна и делает его активным (по названию класса окна, по заголовку или еще как-то) - но это в системное программирование

[rdaler]

Мониторить окна не получится, т.к. в один момент у меня может быть запущено несколько подключений, а после второго подключения процесс первого перестает быть виден и доступа к нему соответственно даже по PID нету.
Может всё же не глюк платформы, а я что-либо не так делаю?

object Trade;
...
//Метод подключения
Type t=Type.GetTypeFromProgID("V77.Application");
Trade=System.Activator.CreateInstance(t);
Object[] args=new Object[3];
args[0]=Trade.GetType().InvokeMember(@"RMTrade", BindingFlags.Public|BindingFlags.InvokeMethod, null, Trade, null);
StringBuilder Str=new StringBuilder(@"/D"+'"'+MDPath+'"');
if(username!="") { Str.Append(" /N"+username); }
if(password!="") { Str.Append(" /P"+password); }
args[1]=Str.ToString();
args[2]=@"NO_SPLASH_SHOW";
Trade.GetType().InvokeMember(@"Initialize", BindingFlags.Public|BindingFlags.InvokeMethod, null, Trade, args);
...
//Метод вызова
object Ref=Trade.GetType().InvokeMember("CreateObject", BindingFlags.GetProperty, null, Trade, new object[1] {"Reference.XXX"});
Ref.GetType().InvokeMember("Choose", BindingFlags.InvokeMethod, null, TradeObject, new object[2] { "", "" });

[Kivals]

Да нет - к сожалению в 7 вроде не особо развиты методы работы с интерфейсом.
Попробуй чем-то вроде WinSpy отследить класс окна и перебирай дочерние окна процесса чем-то типа FindWindow / EnumWindows. Подробностей не помню - давно уже с WinAPI не работал.

[Алексей++]

А если к найденному диалогу присобачить стиль WS_EX_TOPMOST, то диалог будет всегда поверх всех окон

[rdaler]

Попытался аналогичную ситуацию сделать в Delphi10 (авось это Framework выпендривается) - нифига, аналогичную ситуацию и получил: первый вызов Top, а все последующие Back.
С перебором окон идея, конечно, скорее всего правильная, вот только для этого перебора придется отдельный поток создавать, т.к. це ж вызов модального окна. А кроме того у меня может быть подключено несколько ИБ, а их процессы как близнецы - отличаются только PID-ом. Короче, довольно геморно! Хотя, скорее всего это и будет окончательным вариантом решения.
Может есть ещё какие варианты динамического связывания, о которых, так сказать, скромно умалчивают?

[Kivals]

Дык - вроде по PID ты можешь перебирать дочерние окна конкретного процесса... А что касается отдельного потока - так в твоем случае он никак взаимодействовать с основным не должен, так что задача тривиальная. Единственный момент - наверное второй поток нужно с приоритетом ниже нормального делать.

[rdaler]

Короче уговорили! Решил запустить поток непосредственно перед вызовом метода, который ищет необходимое мне окно и делает его TOPMOST. Но вот проблема!!! Окно действительно становится поверх всех окон, КРОМЕ окна вызывающего приложения. Причем, если запускаю в режиме пошаговой отладки (активное окно VS), то все нормально - 1С-овское окно всплывает поверх него; если делаю отдельное консольное приложение, выполняющее нужный поиск и перемещение, - тоже все зашибись. Т.е. пока фокус ввода находится в окне приложения никак не получается переключиться на 1С-овский диалог.

[Kivals]

Активируй еще и приложение

[rdaler]

Какое приложение ты имеешь ввиду?
Если вызывающее, то оно и так в фокусе.

[Kivals]

Окно действительно становится поверх всех окон, КРОМЕ окна вызывающего приложения.

Вот для этого по-моему и нужно активировать главное окно приложения, PID которого у тебя есть

[rdaler]

Оно и так активно (я же из него и вызываю метод по кнопке). Да и зачем мне к нему по PID-у обращаться.
Или я тебя совсем не понимаю. Постарайся изложить свою мысль более полно.

[rdaler]

Проблема решена.
Никакие стили тут не помогают. Нужно тупо вызвать SetForegroundWindow(HWND x);
Странно, но SetActiveWindow, SetWindowPos не катят

[rdaler]

Единственное, что меня во всём этом убивает, так жто тот факт, что идентифицировать окно приходится по Caption-у.
Т.е. получается, если у меня отдельно запущена 1С и в ней совершенно случайно тоже открыт диалог выбора, то он и это окно тоже выведет на передний план.
Поэтому считаю, что нужно оставить тему открытой, т.к. возможно существует другой способ активизировать окно диалога, не перебирая при этом процессы.

[Kivals]

...Нужно тупо вызвать SetForegroundWindow...

Ну писал же - не помню я уже WinAPI Именно на эту мысль и пытался натолкнуть, но забыл метод...

А получив новый OLE объект

Код:

args[0]=Trade.GetType().InvokeMember(@"RMTrade", BindingFlags.Public|BindingFlags.InvokeMethod, null, Trade, null);

ты никак из него PID процесса получить не можешь? а по PID процесса уже можно получить HWND главного окна