Код

    Враппер = СоздатьОбъект("DynamicWrapper");
    Враппер.Register("user32.dll",	"FindWindowExA",			"i=llsl",	"f=s", "r=l");
    Враппер.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("User32.dll",	"GetWindowThreadProcessId",	"i=ll",		"f=s", "r=l");
    Враппер.Register("kernel32.dll", "GetCurrentThreadId", "f=s", "r=l");
    Хендл = Враппер.FindWindowW(0, 0);
    Пока Хендл <> 0 Цикл
	  Если Враппер.GetParent(Хендл)=0 Тогда
		Нить=Враппер.GetWindowThreadProcessId(Хендл, 0);
		Если Нить=Враппер.GetCurrentThreadId() Тогда
		    Прервать;
		КонецЕсли;
	  КонецЕсли;
	  Хендл = Враппер.GetWindow(Хендл, 2);
    КонецЦикла;
   Дескриптор_MDIClient=Враппер.FindWindowExA(Хендл,0,"MDIClient",0);
   Возврат Дескриптор_MDIClient; 

Код

	ТекстМодуля = "
		|Public Const GW_CHILD					= &h5
		|
		|Set Wrap = CreateObject(""DynamicWrapperX"")
		|Wrap.Register ""kernel32"", ""LoadLibrary"" 	,	""i=s"", ""r=h""
		|Wrap.Register ""kernel32"", ""GetProcAddress"" ,	""i=hs"", ""r=u""
		|Wrap.Register ""user32"", ""GetWindow""	, ""i=hl"", ""r=l""
		|
		|handle  = Wrap.LoadLibrary(""frame"")
		|func    = Wrap.GetProcAddress(handle, ""?GetMainFrame@@YAPAVCMDIFrameWnd@@XZ"") 'GetMainFrame(void)
		|r 	= Wrap.RegisterAddr(func, ""GetMainFrame"", ""f=s"", ""r=p"")
		|h1C	  = Wrap.NumGet(Wrap.GetMainFrame(), 32)
		|
		|MsgBox Hex(h1C)
		|
		|hMDI = Wrap.GetWindow(h1C, GW_CHILD)
		|
		|MsgBox Hex(hMDI)
		|";