在TwebBrowser中调用隐藏的IE命令
2004-11-04 12:17
369 查看
//命令句柄ID,是来自Shell DocObject View这个类
![](/Emoticons/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'
![](/Emoticons/beer_mug.gif)
const ID_IE_CONTEXTMENU_NEWWINDOW = 2137;
const ID_IE_CONTEXTMENU_ADDFAV = 2261;
const ID_IE_CONTEXTMENU_REFRESH = 6042;
//下面是获取IE句柄:
![](/Emoticons/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;
//先是试试调用‘添加到收藏夹’
![](/Emoticons/coffee.gif)
procedure TForm1.ToolButton2Click(Sender: TObject);
begin
SendMessage(GetIEHandle(web, 'Internet Explorer_Server'), WM_COMMAND, ID_IE_CONTEXTMENU_ADDFAV, 0);
end;
//再试试'导入和导出'
![](/Emoticons/teeth_smile.gif)
procedure TForm1.ToolButton3Click(Sender: TObject);
begin
SendMessage(GetIEHandle(web, 'Shell DocObject View'), WM_COMMAND, ID_IE_FILE_IMPORTEXPORT, 0);
end;
//初始化
![](/Emoticons/regular_smile.gif)
procedure TForm1.FormCreate(Sender: TObject);
begin
web.Go('http://blog.csdn.net/laoli/');
end;
![](/Emoticons/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'
![](/Emoticons/beer_mug.gif)
const ID_IE_CONTEXTMENU_NEWWINDOW = 2137;
const ID_IE_CONTEXTMENU_ADDFAV = 2261;
const ID_IE_CONTEXTMENU_REFRESH = 6042;
//下面是获取IE句柄:
![](/Emoticons/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;
//先是试试调用‘添加到收藏夹’
![](/Emoticons/coffee.gif)
procedure TForm1.ToolButton2Click(Sender: TObject);
begin
SendMessage(GetIEHandle(web, 'Internet Explorer_Server'), WM_COMMAND, ID_IE_CONTEXTMENU_ADDFAV, 0);
end;
//再试试'导入和导出'
![](/Emoticons/teeth_smile.gif)
procedure TForm1.ToolButton3Click(Sender: TObject);
begin
SendMessage(GetIEHandle(web, 'Shell DocObject View'), WM_COMMAND, ID_IE_FILE_IMPORTEXPORT, 0);
end;
//初始化
![](/Emoticons/regular_smile.gif)
procedure TForm1.FormCreate(Sender: TObject);
begin
web.Go('http://blog.csdn.net/laoli/');
end;
![](http://blog.csdn.net/Emoticons/hitwall.gif)
相关文章推荐
- Internet Explorer 编程简述(五)调用IE隐藏的命令(中文版)
- Internet Explorer 编程简述(十三)调用IE隐藏的命令(续)
- Internet Explorer 编程简述(五)调用IE隐藏的命令
- Internet Explorer 编程简述(五)调用IE隐藏的命令(中文版)
- Internet Explorer 编程简述(五)调用IE隐藏的命令(中文版)
- Internet Explorer 编程简述(十三)调用IE隐藏的命令(续)
- 弹出的模态窗口(子窗口)中调用IE的打印预览功能,结果IE弹出错误:“当前页面发生脚步错误...错误:不支持该命令.
- C# WINForm 如何关闭系统进程,调用cmd并执行命令(隐藏CMD窗口) - 赤色火焰 - 京华志
- 调用IE命令
- 网页中调用IE命令
- ★★ 在网页中调用IE的内部命令 ★★
- 弹出的模态窗口(子窗口)中调用IE的打印预览功能,结果IE弹出错误:“当前页面发生脚步错误...错误:不支持该命令 代码:0”,
- 调用IE内部命令实现文件打开、保存对话框
- TWebBrowser 调用最新版的Ie Internet Feature Controls (B..C)
- QT5删除隐藏目录+隐藏文件(使用Process::start函数调用系统命令,且等待到结束)
- ASP.NET 调用ie打印(隐藏页眉、页脚以及打印按钮等)
- 调用System命令时隐藏控制台窗口
- java 执行命令、调用bat文件、调用外部程序的两种方法
- 查看系统调用和信号的命令--strace
- 在android程序中调用shell命令与脚本