В глобальном модуле:
1 2 3 4 5 6 7 8 | Процедура глМаксимизироватьОкно() Экспорт Попытка WSHShell = СоздатьОбъект("WScript.Shell"); WSHShell.SendKeys("%"); WSHShell.SendKeys("{LEFT}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}"); Исключение КонецПопытки; КонецПроцедуры |
Вызывать в конце исполнения процедуры ПриОткрытии() любой формы.
Нашел тут: http://www.forum.mista.ru