//參考
//http://msdn.microsoft.com/library/default.asp?url=/library/en-us/com/htm/oen_a2z_22sk.asp
//應用方式請自行測試    unit WBComm_Qoo;    interface    uses SHDocVw_TLB;    const
  OLECMDID_PAGEACTIONBLOCKED = $00000037;
  OLECMDID_PAGEACTIONUIQUERY = $00000038;
  OLECMDID_FOCUSVIEWCONTROLS = $00000039;
  OLECMDID_FOCUSVIEWCONTROLSQUERY = $0000003A;    procedure FzExecWB(WB: TWebBrowser;ch:integer);    implementation    procedure FzExecWB(WB: TWebBrowser;ch:integer);
begin  
  case ch of
     1: WB.ExecWB(OLECMDID_OPEN                   ,OLECMDEXECOPT_PROMPTUSER);
     2: WB.ExecWB(OLECMDID_NEW                    ,OLECMDEXECOPT_PROMPTUSER);
     3: WB.ExecWB(OLECMDID_SAVE                   ,OLECMDEXECOPT_PROMPTUSER); //直接儲存網頁
     4: WB.ExecWB(OLECMDID_SAVEAS                 ,OLECMDEXECOPT_PROMPTUSER); //另存網頁
     5: WB.ExecWB(OLECMDID_SAVECOPYAS             ,OLECMDEXECOPT_PROMPTUSER); 
     6: WB.ExecWB(OLECMDID_PRINT                  ,OLECMDEXECOPT_PROMPTUSER); //設定印表機與列印
     7: WB.ExecWB(OLECMDID_PRINTPREVIEW           ,OLECMDEXECOPT_PROMPTUSER); //預覽列印
     8: WB.ExecWB(OLECMDID_PAGESETUP              ,OLECMDEXECOPT_PROMPTUSER); //設定列印(頁面設定)
     9: WB.ExecWB(OLECMDID_SPELL                  ,OLECMDEXECOPT_PROMPTUSER);
    10: WB.ExecWB(OLECMDID_PROPERTIES             ,OLECMDEXECOPT_PROMPTUSER); //顯示網頁屬性
    11: WB.ExecWB(OLECMDID_CUT                    ,OLECMDEXECOPT_PROMPTUSER);
    12: WB.ExecWB(OLECMDID_COPY                   ,OLECMDEXECOPT_PROMPTUSER);
    13: WB.ExecWB(OLECMDID_PASTE                  ,OLECMDEXECOPT_PROMPTUSER);
    14: WB.ExecWB(OLECMDID_PASTESPECIAL           ,OLECMDEXECOPT_PROMPTUSER);
    15: WB.ExecWB(OLECMDID_UNDO                   ,OLECMDEXECOPT_PROMPTUSER);
    16: WB.ExecWB(OLECMDID_REDO                   ,OLECMDEXECOPT_PROMPTUSER);
    17: WB.ExecWB(OLECMDID_SELECTALL              ,OLECMDEXECOPT_PROMPTUSER);
    18: WB.ExecWB(OLECMDID_CLEARSELECTION         ,OLECMDEXECOPT_PROMPTUSER);
    19: WB.ExecWB(OLECMDID_ZOOM                   ,OLECMDEXECOPT_PROMPTUSER);
    20: WB.ExecWB(OLECMDID_GETZOOMRANGE           ,OLECMDEXECOPT_PROMPTUSER);
    21: WB.ExecWB(OLECMDID_UPDATECOMMANDS         ,OLECMDEXECOPT_PROMPTUSER);
    22: WB.ExecWB(OLECMDID_REFRESH                ,OLECMDEXECOPT_PROMPTUSER);
    23: WB.ExecWB(OLECMDID_STOP                   ,OLECMDEXECOPT_PROMPTUSER);
    24: WB.ExecWB(OLECMDID_HIDETOOLBARS           ,OLECMDEXECOPT_PROMPTUSER);
    25: WB.ExecWB(OLECMDID_SETPROGRESSMAX         ,OLECMDEXECOPT_PROMPTUSER);
    26: WB.ExecWB(OLECMDID_SETPROGRESSPOS         ,OLECMDEXECOPT_PROMPTUSER);
    27: WB.ExecWB(OLECMDID_SETPROGRESSTEXT        ,OLECMDEXECOPT_PROMPTUSER);
    28: WB.ExecWB(OLECMDID_SETTITLE               ,OLECMDEXECOPT_PROMPTUSER);
    29: WB.ExecWB(OLECMDID_SETDOWNLOADSTATE       ,OLECMDEXECOPT_PROMPTUSER);
    30: WB.ExecWB(OLECMDID_STOPDOWNLOAD           ,OLECMDEXECOPT_PROMPTUSER);
    31: WB.ExecWB(OLECMDID_ONTOOLBARACTIVATED     ,OLECMDEXECOPT_PROMPTUSER);
    32: WB.ExecWB(OLECMDID_FIND                   ,OLECMDEXECOPT_PROMPTUSER);
    33: WB.ExecWB(OLECMDID_DELETE                 ,OLECMDEXECOPT_PROMPTUSER);
    34: WB.ExecWB(OLECMDID_HTTPEQUIV              ,OLECMDEXECOPT_PROMPTUSER);
    35: WB.ExecWB(OLECMDID_HTTPEQUIV_DONE         ,OLECMDEXECOPT_PROMPTUSER);
    36: WB.ExecWB(OLECMDID_ENABLE_INTERACTION     ,OLECMDEXECOPT_PROMPTUSER);
    37: WB.ExecWB(OLECMDID_ONUNLOAD               ,OLECMDEXECOPT_PROMPTUSER);
    38: WB.ExecWB(OLECMDID_PROPERTYBAG2           ,OLECMDEXECOPT_PROMPTUSER);
    39: WB.ExecWB(OLECMDID_PREREFRESH             ,OLECMDEXECOPT_PROMPTUSER);
    40: WB.ExecWB(OLECMDID_SHOWSCRIPTERROR        ,OLECMDEXECOPT_PROMPTUSER);
    41: WB.ExecWB(OLECMDID_SHOWMESSAGE            ,OLECMDEXECOPT_PROMPTUSER);
    42: WB.ExecWB(OLECMDID_SHOWFIND               ,OLECMDEXECOPT_PROMPTUSER);
    43: WB.ExecWB(OLECMDID_SHOWPAGESETUP          ,OLECMDEXECOPT_PROMPTUSER);
    44: WB.ExecWB(OLECMDID_SHOWPRINT              ,OLECMDEXECOPT_PROMPTUSER);
    45: WB.ExecWB(OLECMDID_CLOSE                  ,OLECMDEXECOPT_PROMPTUSER);
    46: WB.ExecWB(OLECMDID_ALLOWUILESSSAVEAS      ,OLECMDEXECOPT_PROMPTUSER);
    47: WB.ExecWB(OLECMDID_DONTDOWNLOADCSS        ,OLECMDEXECOPT_PROMPTUSER);
    48: WB.ExecWB(OLECMDID_UPDATEPAGESTATUS       ,OLECMDEXECOPT_PROMPTUSER);
    49: WB.ExecWB(OLECMDID_PRINT2                 ,OLECMDEXECOPT_PROMPTUSER);
    50: WB.ExecWB(OLECMDID_PRINTPREVIEW2          ,OLECMDEXECOPT_PROMPTUSER);
    51: WB.ExecWB(OLECMDID_SETPRINTTEMPLATE       ,OLECMDEXECOPT_PROMPTUSER);
    52: WB.ExecWB(OLECMDID_GETPRINTTEMPLATE       ,OLECMDEXECOPT_PROMPTUSER);
    53: WB.ExecWB(OLECMDID_PAGEACTIONBLOCKED      ,OLECMDEXECOPT_PROMPTUSER);
    54: WB.ExecWB(OLECMDID_PAGEACTIONUIQUERY      ,OLECMDEXECOPT_PROMPTUSER);
    55: WB.ExecWB(OLECMDID_FOCUSVIEWCONTROLS      ,OLECMDEXECOPT_PROMPTUSER);
    56: WB.ExecWB(OLECMDID_FOCUSVIEWCONTROLSQUERY ,OLECMDEXECOPT_PROMPTUSER);
    57: WB.ExecWB(OLECMDID_PRINT                  ,OLECMDEXECOPT_DONTPROMPTUSER); //直接列印
  end;
end;    end.