在TwebBrowser中调用隐藏的IE命令

原创 2004年11月04日 12:17:00
//命令句柄ID,是来自Shell DocObject View这个类74_74.gif
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'beer_mug.gif
const ID_IE_CONTEXTMENU_NEWWINDOW    = 2137;
const ID_IE_CONTEXTMENU_ADDFAV       = 2261;
const ID_IE_CONTEXTMENU_REFRESH      = 6042;

//下面是获取IE句柄:wink_smile.gif
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;


//先是试试调用‘添加到收藏夹’coffee.gif
procedure TForm1.ToolButton2Click(Sender: TObject);
begin
  
SendMessage(GetIEHandle(web, 'Internet Explorer_Server'), WM_COMMAND, ID_IE_CONTEXTMENU_ADDFAV, 0);
end;

//再试试'导入和导出'teeth_smile.gif
procedure TForm1.ToolButton3Click(Sender: TObject);
begin
  
SendMessage(GetIEHandle(web, 'Shell DocObject View'), WM_COMMAND, ID_IE_FILE_IMPORTEXPORT, 0);
end;



//初始化regular_smile.gif
procedure TForm1.FormCreate(Sender: TObject);
begin
  
web.Go('http://blog.csdn.net/laoli/');

end;

hitwall.gif

TWebBrowser控件使用指定IE版本显示网页

好记性不如烂笔头,转自QQ群。 procedure IEEmulator(VerCode: Integer); var RegObj: TRegistry; begin RegObj := ...
  • tht2009
  • tht2009
  • 2015年11月20日 10:37
  • 1576

关于下拉框option在IE下jquery方法hide()无效的解决办法

因为【month.hide()】无效,所以采用【month.wrap("");】的方式来隐藏。 【month.show()】由【month.replaceAll(monthP);】这个month子节...
  • lexluse
  • lexluse
  • 2016年09月08日 16:36
  • 1134

Internet Explorer 编程简述(五)调用IE隐藏的命令(中文版)

关键字:Add To Favorite, Import/Export Wizard, Shell DocObject View, Internet Explorer_Server1、概述除了“整理收藏...
  • CathyEagle
  • CathyEagle
  • 2004年09月16日 00:04
  • 16936

如何隐藏IE地址栏

IE7.0 为了安全性屏蔽掉了,防止钓鱼网站  再补充一下哈 你如果实在要隐藏地址栏 需要设置一下IE的属性 右击IE,在internet属性的安全选项卡中,打开自定义级别,找到“容许网站...
  • ittraining
  • ittraining
  • 2014年04月23日 15:34
  • 2289

【CSS】隐藏多行文本框Textarea在IE中的垂直滚动条

在《【CSS】禁止Google浏览器允许定义调整多行文本框》(点击打开链接)中已经提及过如何使多行文本框Textarea在一些DOM2的浏览器中固定下来。 这不,多行文本框Textarea在IE中也...
  • yongh701
  • yongh701
  • 2015年07月16日 15:03
  • 2296

Delphi TWebBrowser

Delphi WebBrowser控件的使用 WebBrowser控件属性: 1、Application       如果该对象有效,则返回掌管WebBrowser控件的应用程序实现的自动化对象(I...
  • fghydx
  • fghydx
  • 2014年03月28日 09:01
  • 1344

iOS中的隐藏的指令 recursiveDescription

介绍一个隐藏的指令 :recursiveDescription,你可以简单地用它对view进行检查。 在view中调用recursiveDescription来打印它的继承关系。 ...
  • u014641631
  • u014641631
  • 2015年05月21日 16:48
  • 700

Delphi中使用TWebBrowser时存在内存泄漏问题

我在这篇blog: http://blog.csdn.net/ScriptBaby/archive/2004/07/24/50989.aspx 中提到了TWebBrowser的内存泄漏问题. 也许是大...
  • ScriptBaby
  • ScriptBaby
  • 2007年05月20日 23:19
  • 2971

兼容ie select option 显示隐藏

一级分类     五险一金     企业服务     员工服务 二级分类 社会保险服务 公积金服务 社保账户服务 公积金账户服务 社保日常服务 公积金日常服务 //将optio...
  • mrhaoxiaojun
  • mrhaoxiaojun
  • 2016年08月16日 12:06
  • 3810

IE6、IE7、IE8 JS控制显示隐藏兼容问题

在IE7中,使用jQuery显示:$("#a").attr("style","");隐藏:$("#a").attr("style","display:none");但是显示这个方法在IE8中不行IE8...
  • shaobingj126
  • shaobingj126
  • 2011年06月10日 09:39
  • 5184
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在TwebBrowser中调用隐藏的IE命令
举报原因:
原因补充:

(最多只允许输入30个字)