PORTA.ru - on-line магазин ПОРТАтивной техники.PORTA.ru - on-line магазин ПОРТАтивной техники.

Новости
Мои разработки
FAQ
Ссылки
Форум

Развернуть окно на весь экран

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

<сообщил Chernogor>

Замечание:
Если у вас этот код не работает, значит не установлен <Windows Scripting Host> или установлена старая версия.
"Что вам нужно для начала: Первое, что надо сделать - убедиться, что Windows Scripting Host у вас есть.
В состав W2K он входит изначально.
Если вы используете Windows 98 или Internet Information Server 4.0,
или если вы устанавливали Option Pack для Windows NT 4 и для Windows 95, он у вас точно есть.
В случае Windows 95 все усложняется, и Windows Scripting Host придется скачивать с сайта Microsoft (msdn.microsoft.com/scripting).
Напишите в командной строке "wscript".
Если появилось диалоговое окно с надписью, отличной от "File not found", все в порядке."
<по материалам с http://www.optim.ru/cs/2000/1/WSH/WSH.asp>
Скачать более новую версию Windows Scripting Host можно отсюда.

- Наверх -

В качестве благодарности за решение проблемы, щелкните здесь.
Поддержите развитие сайта.
Спасибо!
Автор и разработчик: Кайгородов Андрей aka mszsuz. mszsuz@online.sinor.ru ICQ#33993114. Дата последнего обновления страницы: Friday 09.04.2004 16:52
1C:TOP-100 Рейтинг ресурсов 1С
Hosted by uCoz