Код

   Перем Стр;
    Скрипт=СоздатьОбъект("MSScriptControl.ScriptControl");
    Скрипт.language="javascript";
    Код=Скрипт.CodeObject;
    Враппер = СоздатьОбъект("DynamicWrapper");
    Враппер.Register("user32.dll", "FindWindowW", "i=ll", "f=s", "r=l");
    Враппер.Register("user32.dll", "GetWindow", "i=ll", "f=s", "r=l");
    Враппер.Register("user32.dll", "GetParent", "i=l", "f=s", "r=l");
    Враппер.Register("kernel32.dll", "GetCurrentThreadId", "f=s", "r=l");
    Враппер.Register("User32.dll", "GetWindowThreadProcessId", "i=ll", "f=s", "r=l");
    Враппер.Register("user32.dll", "PostMessageW", "i=llll", "f=s", "r=l");
    Скрипт.AddObject("Враппер",Враппер);
    Хендл = Враппер.FindWindowW(0, 0);
    Пока Хендл <> 0 Цикл
	   Если Враппер.GetParent(Хендл)=0 Тогда
		  Нить=Враппер.GetWindowThreadProcessId(Хендл, 0);
		  Если Нить=Враппер.GetCurrentThreadId() Тогда
			 Прервать;
		  КонецЕсли;
	   КонецЕсли;
	   Хендл = Враппер.GetWindow(Хендл, 2);
    КонецЦикла;
    Враппер.PostMessageW(Хендл,273,32873,0);
 

Сендкеем нажать в меню Помощь - Описание
ЗЫ: А нафига оно надо, если формексом всё достается ?

Код

	РФ=СоздатьОбъект("РасширениеФормы");
	РФ.УстановитьФорму(Форма);
	Сообщить(РФ.Описание);