// Command Handle ID, is from 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;
// Command handle ID, is from 'Internet Explorer_server'const id_ie_contextMenu_newwindow = 2137; const id_ie_contextMenu_addfav = 2261; const id_ie_contextMenu_refresh = 6042;
// below is to get IE
Handle:
Function GetieHandle (WebBBROWSER: TWEBBROWSER; ClassName: String): hWnd;
Var hwndchild, hwnd; ker; ber; becom OleCtrl: = WebBrowser; hWndTmp: = OLECTRL.HANDLE; while (TRUE)
Do Begin Hwndchild: = getWindow (hwndtmp, gw_child); getClassName (HWndchild, Szclass, Sizeof (Szclass)); if (String (Szclass) = ClassName
= hwndchild; exit; end; hwndtmp: = hWndchild; end; result: = 0;
// Try to call 'Add to Favorites'
Procedure TFORM1.TOOLBUTTON2CLICK (Sender: TOBJECT);
Begin
SendMessage (GetieHandle (Web, 'Internet Explorer_server'), WM_COMMAND, ID_IE_CONTEXTMENU_ADDFAV, 0); END;
// Try again 'import and export'
Procedure TFORM1.TOOLBUTTON3CLICK (Sender: TOBJECT);
Begin
SendMessage (GetieHandle (Web, 'Shell DocObject View'), WM_COMMAND, ID_IE_FILE_IMPORTEXPORT, 0); END;
//initialization
Procedure TFORM1.FormCreate (Sender: TOBJECT);
Begin Web.go ('http://blog.9cbs.net/Laoli/');
