![]() |
![]() |
Друг1С 06.07.2004 - 10:07 | Есть необходимость определить к какому семейству относится опрерационка к NT или Windows 9XX,Me. |
Lvk 1 - 06.07.2004 - 10:10 |
ВерсияОС Синтаксис ВерсияОС Назначение Атрибут ВерсияОС содержит наименование версии операционной системы (строковое выражение). Атрибут доступен для объекта типа V7SysInfo |
zuzin 2 - 06.07.2004 - 10:10 |
компонента v7plus.dll ВерсияОС Синтаксис ВерсияОС Назначение Атрибут ВерсияОС содержит наименование версии операционной системы (строковое выражение). Атрибут доступен для объекта типа V7SysInfo |
МихаилМ 3 - 06.07.2004 - 10:11 | команда ver ,например |
Рупор абсурда 4 - 06.07.2004 - 10:19 |
Шелл=СоздатьОбъект("WScript.Shell"); Если Найти(Шелл.ExpandEnvironmentStrings("%OS%"),"NT")=0 Тогда NT Иначе 9х |
Славко 5 - 06.07.2004 - 10:22 | (4) а как получить сразу в 1С (3)? |
Славко 6 - 06.07.2004 - 10:27 | +6 я имел ввиду строку с названием ОС, а ен выеживаться с комндой ver, тем же например WScript.Shell |
Друг1С 7 - 06.07.2004 - 10:34 |
2 (4) Спасибо, небольшая ошибка, не =0,а >0 :)) Попытка Шелл=СоздатьОбъект("WScript.Shell"); Сообщить(Шелл.ExpandEnvironmentStrings("%OS%")); Если Найти(Шелл.ExpandEnvironmentStrings("%OS%"),"NT")>0 Тогда Сообщить("NT"); Иначе Сообщить("98"); КонецЕсли Исключение КонецПопытки; |
Славко 8 - 06.07.2004 - 10:42 | (7) а если Милениум? |
jarett 9 - 06.07.2004 - 10:44 | (8)Неужто кто-то его еще юзает? |
Славко 10 - 06.07.2004 - 10:45 |
(9) а ты (0) почитай то... но я туплю по черному, строка ОС - Шелл.ExpandEnvironmentStrings("%OS%") |