Показать сообщение отдельно
Старый 08.12.2004, 10:29     # 4
alexey_ma
Member
 
Регистрация: 10.03.2002
Адрес: Israel
Сообщения: 245

alexey_ma Нимб уже пробиваетсяalexey_ma Нимб уже пробивается
На с++ это делаеться так (код из моего сом-сервера):
делаем импорт
#import <shdocvw.dll> named_guids
#import <mshtml.tlb> named_guids
Код:
STDMETHODIMP CMyComXXXXX::ShowBrowserInPosition(BSTR bstrURL, long lX, long lY, long lWidth, long lHeight)
{
	SHDocVw::IWebBrowser2Ptr spWebBrowser(__uuidof(InternetExplorer));
	if(spWebBrowser!=NULL)
	{
		spWebBrowser->put_AddressBar(VARIANT_FALSE);
		spWebBrowser->put_StatusBar(VARIANT_FALSE);
		spWebBrowser->put_MenuBar(VARIANT_FALSE);
		spWebBrowser->put_ToolBar(VARIANT_FALSE);
		spWebBrowser->put_Silent(VARIANT_TRUE);
		CComVariant vFlags(VT_EMPTY);
        CComVariant vTargetFrameName (VT_EMPTY);
        CComVariant vPostData(VT_EMPTY);
        CComVariant vHeaders(VT_EMPTY);		 
		
		HWND hWnd = (HWND)spWebBrowser->HWND;
		if(hWnd && IsWindow(hWnd))
		{
			//	::MoveWindow(hWnd,lX,lY,lWidth,lHeight,TRUE);

			::SetWindowPos(hWnd,HWND_TOP,lX,lY,lWidth,lHeight,SWP_SHOWWINDOW);
			//if you neeed always topmost window try :
			//::SetWindowPos(hWnd,HWND_TOPMOST,lX,lY,lWidth,lHeight,SWP_SHOWWINDOW);
		
		}
		spWebBrowser->put_Visible(VARIANT_TRUE);
		spWebBrowser->Navigate(bstrURL,&vFlags,&vTargetFrameName,&vPostData,&vHeaders);
	

	}

	return S_OK;}
__________________
Best Regards
alexey_ma вне форума