как IE выгнать на передний план ?

Обрати внимания что "Скока" может сильно отличаться от количества пердуперждений (хотя кажет и скрытые и не скрытые) - ибо виндовс тут - это все окна проводника, в том числе и папки и панель управления и прочие сетевые подключения и т.д. открытые в данный момент (скрытые и не скрытые), а свойства документ.боди есть только у ИЕ


 
//*******************************************
 
Функция ПолучитьОбертку()
 
    ХТМЛ = СоздатьОбъект("htmlfile");
 
    ХТМЛ.Open("text/html");
 
    //<-- Подготовим нужные методы
 
    ХТМЛ.Write("<script>
 
    |var ХТМЛ;
 
    |Новый=function(x,y){return new x(y)}
 
    |</script>");
 
    Док=ХТМЛ.documentElement.document;
 
    // Внедрение объекта Скрипта в самого себя, для сохранности контекста
 
    Док.script.ХТМЛ=ХТМЛ;
 
    // Все подготовке -->
 
    Возврат Док.script;
 
КонецФункции    // ПолучитьОбертку(Это)
 

 
//*******************************************
 
Функция ПолучитьОберткуДругая()
 
    Скрипт=СоздатьОбъект("MSScriptControl.ScriptControl");
 
    Скрипт.language="javascript";
 
    //<-- Подготовим нужные методы
 
    Скрипт.Eval("Новый=function(x,y){return new x(y)}");
 
    // Внедрение объекта Скрипта в самого себя, для сохранности контекста
 
    Скрипт.AddObject("Скрипт",Скрипт);
 
    Возврат Скрипт.Eval("this");
 
КонецФункции    // ПолучитьОбертку(Это)
 

 
//*******************************************
 
Процедура Сформировать()
 
    ЗапуститьПриложение("explorer.exe http://www.mista.ru");
 
    ЗапуститьПриложение("explorer.exe http://www.an-nks.ru");
 
    Шел=СоздатьОбъект("shell.application");
 
    ВвестиСтроку("ххх","ххх",3,,10);
 
    Шел.MinimizeAll();
 
    ВвестиСтроку("ххх","ххх",3,,1);
 
    Попытка
 
        Это=ПолучитьОбертку();
 
    Исключение
 
        Это=ПолучитьОберткуДругая();
 
    КонецПопытки;
 
    Окна=Это.Новый(Это.Enumerator,Шел.Windows());
 
    Пока Окна.atEnd(0)=0 Цикл
 
        Окно=Окна.item(0);
 
        Сообщить(ТипЗначенияСтр(Окно));
 
        Попытка
 
            Предупреждение(Окно.document.body.innerText);
 
        Исключение
 
        КонецПопытки;
 
        Окна.moveNext(0);
 
    КонецЦикла;
 
    Сообщить("Скока="+Шел.Windows().Count,"!");
 
КонецПроцедуры