Как запустить программу (приложение) и дождаться окончания её выполнения в 1с 8.3, 8.2
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
&НаКлиенте Процедура ЗапуститьПриложениеИПодождать() Перем КодВозврата; Сообщить("Запуск приложения"); ЗапуститьПриложение( "file.exe", "", // Каталог приложения Истина, // Дождаться завершения работы приложения, которое запустили КодВозврата // Код, возвращаемый программой ); // Код, находящийся здесь, будет выполнен, после того, как пользователь закроет запущенное приложение Сообщить ("Приложение закрыто."); КонецПроцедуры |
Как запустить программу (приложение), без ожидания окончания её выполнения в 1с 8.3, 8.2
|
1 2 3 4 5 6 7 8 9 10 11 |
&НаКлиенте Процедура ЗапуститьПриложениеИНеЖдать() Перем КодВозврата; ЗапуститьПриложение( " file.exe", "", // Каталог приложения Ложь, // Дождаться завершения работы приложения, которое запустили КодВозврата // Код, возвращаемый программой ); // Код, находящийся здесь, будет выполнен, сразу после запуска приложения КонецПроцедуры |
Как открыть сайт в браузере по умолчанию в 1с 8.3, 8.2
|
1 2 3 4 |
&НаКлиенте Процедура ОткрываемСайтВБраузереПоУмолчанию() ЗапуститьПриложение("https://okolokompa.com"); КонецПроцедуры |
Как открыть сайт в Internet Explorer из 1с 8.3, 8.2
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
&НаКлиенте Процедура ОткрываемСайтВInternetExplorer() Shell = Новый COMОбъект("WScript.Shell"); ProgramFiles = Shell.ExpandEnvironmentStrings("%PROGRAMFILES%"); ЗапуститьПриложение(ProgramFiles + "\Internet Explorer\iexplore.exe https://okolokompa.com"); КонецПроцедуры // ЕЩЁ &НаКлиенте Процедура ОткрываемСайтВInternetExplorer () КомандаСистемы("start iexplore.exe http:// okolokompa.ru"); КонецПроцедуры |
Как открыть файл Word или Excel в 1с 8.3, 8.2
|
1 2 3 4 5 |
&НаКлиенте Процедура ОткрываемWordИлиExcel() ЗапуститьПриложение("c:\документ.xlsx"); ЗапуститьПриложение("c:\документ.docx"); КонецПроцедуры |
Как открыть папку в проводнике Windows в 1с 8.3, 8.2
|
1 2 3 4 5 6 |
&НаКлиенте Процедура ОткрываемПапкуВПроводнике() Shell = Новый COMОбъект("WScript.Shell"); WindowsDir = Shell.ExpandEnvironmentStrings("%WINDIR%"); ЗапуститьПриложение(WindowsDir + "\explorer.exe ""C:\Наша папка"""); КонецПроцедуры |
Как выделить нужный файл в проводнике в 1с 8.3, 8.2
|
1 2 3 4 5 6 7 |
&НаКлиенте Процедура ВыделяемФайлВПроводнике() Shell = Новый COMОбъект("WScript.Shell"); WindowsDir = Shell.ExpandEnvironmentStrings("%WINDIR%"); // открываем проводник с выделенным файлом ЗапуститьПриложение(WindowsDir + "\explorer.exe /select,""C:\Наша папка\Наш файл.exe"""); КонецПроцедуры |
Как запустить приложение с параметрами в 1с 8.3, 8.2
|
1 2 3 4 5 6 7 8 |
&НаКлиенте Процедура ЗапускаемПриложениеСПараметрами() ЗапуститьПриложение("C:\Windows\explorer.exe ""Параметры запуска"""); // ЕЩЁ КомандаСистемы("start explorer.exe ""Параметры запуска """); КонецПроцедуры |
Как выполнить команду операционной системы из приложения в 1с 8.3, 8.2
|
1 2 3 4 5 6 7 |
&НаКлиенте Процедура ВыполняемКомандуОперационнойСистемы() КомандаСистемы( "ping 8.8.8.8", // Команда "" // Текущий каталог ); КонецПроцедуры |
Как получить имя компьютера в 1с 8.3, 8.2
|
1 2 3 4 |
&НаКлиенте Процедура ПолучаемИмяКомпьютера() Сообщить(ИмяКомпьютера()); КонецПроцедуры |
Как получить путь к каталогу исполняемых файлов в 1с 8.3, 8.2
|
1 2 3 4 5 |
&НаКлиенте Процедура ПолучаемПутьККаталогуИсполняемыхФайлов1С() // Выведет полный путь к папке bin из которой запущена 1с Сообщить(КаталогПрограммы()); КонецПроцедуры |
Как получить путь к каталогу временных файлов в 1с 8.3, 8.2
|
1 2 3 4 |
&НаКлиенте Процедура ПолучаемПутьККаталогуВременныхФайлов() Сообщить(КаталогВременныхФайлов()); КонецПроцедуры |
Как получить путь к каталогу документов пользователя в 1с 8.3, 8.2
|
1 2 3 4 |
&НаКлиенте Процедура ПолучаемПутьККаталогуДокументов() Сообщить(КаталогДокументов()); КонецПроцедуры |
Как получить информацию о мониторах (dpi, разрешение) в 1с 8.3, 8.2
|
1 2 3 4 5 6 7 |
&НаКлиенте Процедура ПолучаемИнформациюОМониторах() Для Каждого Монитор Из ПолучитьИнформациюЭкрановКлиента() Цикл Сообщить("DPI " + Строка(Монитор.DPI) + " Высота: " + Строка(Монитор.Высота) + " Ширина: " + Строка(Монитор.Ширина)); КонецЦикла; КонецПроцедуры |
Как получить путь к рабочему каталогу данных пользователя в 1с 8.3, 8.2
|
1 2 3 4 5 6 7 8 |
&НаКлиенте Процедура ПолучаемПутьКРабочемуКаталогуДанныхПользователя() Сообщить(РабочийКаталогДанныхПользователя()); // Пример вывода // C:\Users\Пользователь\AppData\Roaming\1C\1cv8t\.. // ..01c02859-1a28-4514-b595-2abdc95ebb97\071523a4-5.. // ..16f-4fce-ba4b-0d11ab7a1893\App\ КонецПроцедуры |
Как узнать текущий язык системы в 1с 8.3, 8.2
|
1 2 3 4 |
&НаКлиенте Процедура УзнаёмТекущийЯзыкСистемы() Сообщить(ТекущийЯзыкСистемы()); // ru КонецПроцедуры |
Как получить список пользователей операционной системы в 1с 8.3, 8.2
|
1 2 3 4 5 6 7 8 9 10 11 12 |
&НаКлиенте Процедура ПолучаемСписокПользователейОперационнойСистемы() Для Каждого Пользователь Из ПользователиОС() Цикл Сообщить(Пользователь.ИмяДомена + ": " + Пользователь.ИмяСервера +" локальный (" + Пользователь.Локальный + ")" ); Для Каждого Имя Из Пользователь.Пользователи Цикл Сообщить(" " + Имя); КонецЦикла; КонецЦикла; КонецПроцедуры |