// https://github.com/tormozit/RDT_Common_1C

// Идентификатор текущего процесса ОС.
// 
// Возвращаемое значение:
//  Число - 
//
Функция PID() Экспорт
КонецФункции   

// Замораживает поток на заданное время.
// 
// Параметры:
//  ЧислоМилисекунд - Число - 
//
Функция Sleep(ЧислоМилисекунд) Экспорт
КонецФункции   

// Получает признак наличия административных привилегий с элевацией у текущего пользователя ОС.
// 
// Возвращаемое значение:
//  Булево - 
//
Функция IsAdmin() Экспорт
КонецФункции 

// Запоминает позицию каретки; к полученным через WinAPI координатам (их не всегда удается получить) добавляется смещение
// Параметры:
//   СмещениеX - Число - 
//   СмещениеY - Число - 
//   ЧерезUIAutomation - Булево - Требуется для 8.5
// Возвращаемое значение:
//    - 
Функция GetCaretPos(СмещениеX = 0, СмещениеY = 0, ЧерезUIAutomation = Ложь) Экспорт
КонецФункции 

// см. GetCaretPos
Функция ПолучитьПозициюКаретки(СмещениеX = 0, СмещениеY = 0, ЧерезUIAutomation = Ложь) Экспорт
КонецФункции 

// Перемещает левый верхний угол окна в запомненную позицию каретки
// Параметры:
//   РазрешитьВыходЗаГраницыЭкрана - Булево - 
//   ПоверхВсехОкон - Булево - 
//   НачалоЗаголовка - Строка - если пустое, то берется активное окно (не работает в 8.5)
// Возвращаемое значение:
//    - 
Функция MoveWindowToCaretPos(РазрешитьВыходЗаГраницыЭкрана = Ложь, ПоверхВсехОкон = Ложь, НачалоЗаголовка = "") Экспорт
КонецФункции 

// см. MoveWindowToCaretPos
Функция ПереместитьОкноВПозициюКаретки(РазрешитьВыходЗаГраницыЭкрана = Ложь, ПоверхВсехОкон = Ложь, НачалоЗаголовка = "") Экспорт
КонецФункции    

// Выполняет команду системы
// Параметры:
//  ИсполняемыйФайл - Строка - 
//  ПараметрыЗапуска - Строка - 
//  ТекущийКаталог - Строка - 
//  ОжидатьЗавершения - Булево - 
//  Элевация - Булево - 
//
Функция Run(ИсполняемыйФайл, ПараметрыЗапуска, ТекущийКаталог, ОжидатьЗавершения, Элевация) Экспорт
КонецФункции   

// Установить текст в буфер обмена
Процедура SetClipboard(Текст) Экспорт
КонецПроцедуры

// см. SetClipboard
Процедура УстановитьБуферОбмена(Текст) Экспорт
КонецПроцедуры

// Установить текст в буфер обмена
Функция GetClipboard(Формат="text") Экспорт
КонецФункции

// см. GetClipboard
Функция ПолучитьБуферОбмена(Формат="text") Экспорт
КонецФункции
