my 1C. Полезная информация.

Попытка
     Шелл=СоздатьОбъект("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>


	На PORTA.ru ОГРОМНЫЙ выбор портативной техники: MD-плееры CD-плееры MP3-плееры Кассетные плееры Диктофоны Радио Цифр. камеры Сотовые Дешевые ноутбуки