本文整理自网络,侵删。
//命令句柄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;
const ID_IE_CONTEXTMENU_VIEWSOURCE = 2139;
调用方法:
const
ID_IE_CONTEXTMENU_VIEWSOURCE = 2139;
var vHandle:THandle;
begin
vHandle:=FindWindowEx(MyIEHandle,0,'Shell DocObject View',nil);
vHandle:=FindWindowEx(vHandle,0,'Internet Explorer_Server',nil);
SendMessage(vHandle,WM_COMMAND,ID_IE_CONTEXTMENU_VIEWSOURCE,Handle);
相关阅读 >>
Delphi processid, process handle, window handle 之间的互相转换
Delphi leftstr 返回字符串左边指定个数的新字符(串)
Delphi getwebbrowserhtml 获取网页源代码
更多相关阅读请进入《Delphi》频道 >>