На PORTA.ru
ОГРОМНЫЙ выбор портативной техники:
MD-плееры CD-плееры MP3-плееры Кассетные плееры Диктофоны Радио Цифр. камеры Сотовые Дешевые ноутбуки |
||
Как узнать разрешение экрана Попытка
Шелл=СоздатьОбъект("WScript.Shell"); Если Найти(Шелл.ExpandEnvironmentStrings("%OS%"),"NT")=0 Тогда РазрешениеЭкрана=Шелл.RegRead("HKEY_CURRENT_CONFIG\Display\Settings\Resolution"); РазрешениеЭкрана=СтрЗаменить(РазрешениеЭкрана,",","x"); Иначе Локатор=СоздатьОбъект("WbemScripting.SWbemLocator"); Сервис=Локатор.ConnectServer(); Сервис.Security_.ImpersonationLevel=3; Видео=Сервис.Get("Win32_VideoController.DeviceID='VideoController1'"); РазрешениеЭкрана=""+Видео.CurrentHorizontalResolution+"x"+Видео.CurrentVerticalResolution; КонецЕсли; Сообщить(РазрешениеЭкрана); Исключение Сообщить("Не удалось выяснить разрешение экрана!") КонецПопытки; <Андрей Михайлов 1C: Zone by MAV> -
Наверх -
|
В качестве благодарности за решение проблемы, щелкните здесь. Поддержите развитие сайта. Спасибо! |
Автор и разработчик: Кайгородов Андрей aka mszsuz. mszsuz@online.sinor.ru ICQ#33993114. Дата последнего обновления страницы: Friday 09.04.2004 16:52 |