1С программно открыть окно программы во весь экран

В глобальном модуле:

Процедура глМаксимизироватьОкно() Экспорт
    Попытка
        WSHShell = СоздатьОбъект("WScript.Shell");
        WSHShell.SendKeys("%");
        WSHShell.SendKeys("{LEFT}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}");
    Исключение
    КонецПопытки;
КонецПроцедуры

Процедура глМаксимизироватьОкно() Экспорт

Попытка

WSHShell = СоздатьОбъект("WScript.Shell");

WSHShell.SendKeys("%");

WSHShell.SendKeys("{LEFT}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}");

Исключение

КонецПопытки;

КонецПроцедуры

Вызывать в конце исполнения процедуры ПриОткрытии() любой формы.
Нашел тут: http://www.forum.mista.ru

Виталий Скальный

дневник программиста

1С программно открыть окно программы во весь экран