在TwebBrowser中调用隐藏的IE命令

//命令句柄ID,是来自Shell DocObject View这个类

const ID_IE_FILE_PAGESETUP = 259;

const ID_IE_FILE_PRINT = 260;

const ID_IE_FILE_NEWWINDOW = 275;

const ID_IE_FILE_PRINTPREVIEW = 277;

const ID_IE_FILE_NEWMAIL = 279;

const ID_IE_FILE_SENDPAGE = 282;

const ID_IE_FILE_SENDLINK = 283;

const ID_IE_FILE_SENDDESKTOPSHORTCUT = 284;

const ID_IE_HELP_VERSIONINFO = 336;

const ID_IE_HELP_HELPINDEX = 337;

const ID_IE_HELP_WEBTUTORIAL = 338;

const ID_IE_HELP_FREESTUFF = 341;

const ID_IE_HELP_PRODUCTUPDATE = 342;

const ID_IE_HELP_FAQ = 343;

const ID_IE_HELP_ONLINESUPPORT = 344;

const ID_IE_HELP_FEEDBACK = 345;

const ID_IE_HELP_BESTPAGE = 346;

const ID_IE_HELP_SEARCHWEB = 347;

const ID_IE_HELP_MSHOME = 348;

const ID_IE_HELP_VISITINTERNET = 349;

const ID_IE_HELP_STARTPAGE = 350;

const ID_IE_HELP_NETSCAPEUSER = 351;

const ID_IE_FILE_IMPORTEXPORT = 374;

const ID_IE_HELP_ENHANCEDSECURITY = 375;

const ID_IE_FILE_ADDTRUST = 376;

const ID_IE_FILE_ADDLOCAL = 377;

const ID_IE_FILE_NEWPUBLISHINFO = 387;

const ID_IE_FILE_NEWPEOPLE = 390;

const ID_IE_FILE_NEWCALL =395;

//命令句柄ID,是来自 'Internet Explorer_Server'

const ID_IE_CONTEXTMENU_NEWWINDOW = 2137;

const ID_IE_CONTEXTMENU_ADDFAV = 2261;

const ID_IE_CONTEXTMENU_REFRESH = 6042;

//下面是获取IE句柄:

function GetIEHandle(WebBrowser: TWebbrowser; ClassName: string): HWND;

var

hwndChild, hwndTmp: HWND;

oleCtrl: TOleControl;

szClass: array [0..255] of char;

begin

oleCtrl :=WebBrowser;

hwndTmp := oleCtrl.Handle;

while (true) do

begin

hwndChild := GetWindow(hwndTmp, GW_CHILD);

GetClassName(hwndChild, szClass, SizeOf(szClass));

if (string(szClass)=ClassName) then

begin

Result :=hwndChild;

Exit;

end;

hwndTmp := hwndChild;

end;

Result := 0;

end;

//先是试试调用‘添加到收藏夹’

procedure TForm1.ToolButton2Click(Sender: TObject);

begin

SendMessage(GetIEHandle(web, 'Internet Explorer_Server'), WM_COMMAND, ID_IE_CONTEXTMENU_ADDFAV, 0);

end;

//再试试'导入和导出'

procedure TForm1.ToolButton3Click(Sender: TObject);

begin

SendMessage(GetIEHandle(web, 'Shell DocObject View'), WM_COMMAND, ID_IE_FILE_IMPORTEXPORT, 0);

end;

//初始化

procedure TForm1.FormCreate(Sender: TObject);

begin

web.Go(http://blog.csdn.net/laoli/');

end;

//ok //