Internet Explorer7 에서 현재 활성화 되있는 탭윈도우 핸들 얻기
델파이2008. 8. 28. 14:27
C++ 코드 :
#include <shlguid.h>
HWND GetTabWnd(CComQIPtr<IWebBrowser2> spBrowser)
{
HWND hwndTab = NULL;
CComQIPtr<IServiceProvider> spServiceProvider = spBrowser;
if (spServiceProvider != NULL)
{
CComQIPtr<IOleWindow> spWindow;
if (SUCCEEDED(spServiceProvider->QueryService(
SID_SShellBrowser,
IID_IOleWindow,
(void**)&spWindow)))
{
spWindow->GetWindow(&hwndTab));
}
}
return hwndTab;
}
델파이 코드 :
const
SID_SShellBrowser: TGUID = '{000214E2-0000-0000-C000-000000000046}';
IID_IOleWindow : TGUID = '{00000114-0000-0000-C000-000000000046}';
function GetTabWnd(spBrowser: IWebBrowser2): HWND;
var
hwndTab: HWND;
spServiceProvider: IServiceProvider;
spWindow: IOleWindow;
begin
spServiceProvider := spBrowser as IServiceProvider;
if (SUCCEEDED(spServiceProvider.QueryService(SID_SShellBrowser,
IID_IOleWindow,
spWindow) then
begin
spWindow.GetWindow(hwndTab);
end;
result hwndTab;
end
'델파이' 카테고리의 다른 글
생성자 오버로딩 하기 (0) | 2008.11.20 |
---|---|
동적 IP, DNS 변경 함수 (0) | 2008.11.12 |
IE Band에서 탭키, 엔터키, 델리트키(VK_TAB, VK_RETURN, VK_DELETE) 입력가능하도록 하기 (0) | 2008.10.17 |
소수점 이하 제거하는 함수 (0) | 2008.10.06 |
Delphi 2007에서 DSPack 설치하기 (0) | 2008.09.24 |
Delphi로 ActiveX 제작시 DAX 에러나는 문제 해결법 (0) | 2008.08.07 |
인터넷에서 파일 다운로드 하기 (0) | 2008.07.17 |
ActiveX에서 IWebBrowser2(브라우저 포인터) 얻기 (0) | 2008.07.16 |
URL 인코딩(Encoding) 함수 (0) | 2008.06.25 |
문자열을 MD5로 변환하는 유닛 (0) | 2008.06.09 |