закрепить окно формы в 8.3.7

		
УстановитьПривилегированныйРежим(Истина);
                НастройкиРабСтолаАдмин = Новый НастройкиНачальнойСтраницы;
		СоставФормАдмин = НастройкиРабСтолаАдмин.ПолучитьСоставФорм();
		СоставФормАдмин.ЛеваяКолонка.Очистить();
		СоставФормАдмин.ПраваяКолонка.Очистить();
		СоставФормАдмин.ЛеваяКолонка.Добавить("Задача.Задача1.ФормаСписка");
		СоставФормАдмин.ПраваяКолонка.Добавить("Отчет.Отчет1.Форма");
		НастройкиРабСтолаАдмин.УстановитьСоставФорм(СоставФормАдмин);

		Если ТекСотрудник.Роль = "Администратор" Тогда
					ХранилищеСистемныхНастроек.Сохранить("Общее/НастройкиНачальнойСтраницы",,НастройкиРабСтолаАдмин,,СокрЛП(ПользовательИнфБазы.Имя)); 
					ХранилищеСистемныхНастроек.Сохранить("Общее/НастройкиИнтерфейсаКлиентскогоПриложения",,НастройкиИнтерфейсаАдмин,,СокрЛП(ПользовательИнфБазы.Имя));
               КонецЕсли;
УстановитьПривилегированныйРежим(Ложь);

		НастройкиИнтерфейсаАдмин = Новый НастройкиИнтерфейсаКлиентскогоПриложения;
		СоставИнтерфейсаАдмин = НастройкиИнтерфейсаАдмин.ПолучитьСостав();
		Для Каждого Эл Из СоставИнтерфейсаАдмин.Верх Цикл
			// действия
		КонецЦикла;
		СоставИнтерфейсаАдмин.Низ.Очистить();
		СоставИнтерфейсаАдмин.Низ.Добавить(Новый ЭлементНастройкиСоставаИнтерфейсаКлиентскогоПриложения("ПанельОткрытых"));
		НастройкиИнтерфейсаАдмин.УстановитьСостав(СоставИнтерфейсаАдмин);

&НаКлиенте
Процедура ПриОткрытии(Отказ)
	ЗакрыватьПриВыборе = Ложь;
	ЗакрыватьПриЗакрытииВладельца = Истина;
	//ЗакрепитьСправа после открытия формы;
	ПодключитьОбработчикОжидания("ЗакрепитьСправа",0.1,Истина);
КонецПроцедуры

&НаКлиенте
Процедура ЗакрепитьСправа()
    Если ЭтаФорма.ВводДоступен() Тогда
		WSHShell = Новый COMОбъект("WScript.Shell");
		WSHShell.SendKeys("%");
		WSHShell.SendKeys("{DOWN 5}");
		WSHShell.SendKeys("{RIGHT}");
		WSHShell.SendKeys("{UP 5}");
		WSHShell.SendKeys("{ENTER}");
        ОтключитьОбработчикОжидания("ЗакрепитьСправа");
    КонецЕсли;
КонецПроцедуры;

&НаКлиенте
Процедура ЗакрепитьСправа()
	Если ЭтаФорма.ВводДоступен() Тогда
		WSHShell = Новый COMОбъект("WScript.Shell");
		Wrap = Новый COMОбъект("DynamicWrapperX");
		//инициалицация методов, про параметры не знаю.
		Wrap.Register("USER32.DLL", "GetCursorPos"		, "i=p", "r=l");		//получение координат курсора
		Wrap.Register("USER32.DLL", "SetCursorPos"		, "i=ll", "f=s", "r=l");//установка координат курсора
		Wrap.Register("USER32.DLL", "GetActiveWindow"	, "i=l" , "f=s", "r=l");//получение активного окна, дескриптор
		Wrap.Register("USER32.DLL", "GetWindowRect"		, "i=lp", "r=l"); 		//координаты окна
		Wrap.Register("user32.dll", "mouse_event"		, "i=uuuuu", "f=s");	//нажатие кнопки мыши
		
		// текущие координаты курсора
		Rect = Wrap.Space(128); //2DWORD 
		pStr = Wrap.StrPtr(Rect); //указатель
		Wrap.GetCursorPos(Rect);
		CurX = Wrap.NumGet(pStr,0,"l");
		CurY = Wrap.NumGet(pStr,4,"l");
		
		// дексриптор активного окна
		HWND = Wrap.GetActiveWindow(1);
		
		// координаты правого верхнего угла окна 1С
		Rect = Wrap.Space(256); //4DWORD
		pStr = Wrap.StrPtr(Rect);  //указатель
		Wrap.GetWindowRect(HWND, Rect);
		top = Wrap.NumGet(pStr,4,"l");
		right = Wrap.NumGet(pStr,8,"l");
		
		// поправка вылезания за экран
		МассивЭкранов = ПолучитьИнформациюЭкрановКлиента();
		ШиринаЭкрана = МассивЭкранов[0].Ширина;
		ВысотаЭкрана = МассивЭкранов[0].Высота;
		Если top < 0 Тогда top = 0 КонецЕсли;
		Если right > ШиринаЭкрана Тогда right = ШиринаЭкрана КонецЕсли;
		
		// устанавливаем курсор на кнопку 
		Wrap.SetCursorPos(right-50,top+120);
		// можно двигать мышкой по-другому
		//Wrap.mouse_event(32769, Окр((right-50)*65535/ШиринаЭкрана), Окр((top+120)*65535/ВысотаЭкрана), 0, 0); //32769-событие перемещения

		// нажимаем и отпускаем левую кнопку мыши
		Wrap.mouse_event(2, 0, 0, 0, 0); 
		Wrap.mouse_event(4, 0, 0, 0, 0);
		
		// стрелками идем к нужному пункту
		WSHShell.SendKeys("{DOWN}");
		WSHShell.SendKeys("{RIGHT}");
		WSHShell.SendKeys("{DOWN 3}");
		WSHShell.SendKeys("{ENTER}");
		
		// возвращаем курсор мыши на место
		Wrap.SetCursorPos(CurX,CurY);
    КонецЕсли;
КонецПроцедуры