nbsp; 　　　　　　　　　　　　　　　换即可，分别为CUT,PASTE和SELECTALL）：
    　　　A、用TWebBrowser的QueryStatusWB方法。
    　　　　　if(QueryStatusWB(OLECMDID_COPY)=OLECMDF_ENABLED) or
    　　　　　　OLECMDF_SUPPORTED) then
    　　　　　　ExecWB(OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT,
    EmptyParam,
    　　　　　　　　　　　EmptyParam);
    　　　B、用IHTMLDocument2的QueryCommandEnabled方法。
    　　　　　var
    　　　　　　Doc: IHTMLDocument2;
    　　　　　begin
    　　　　　　Doc :=WebBrowser1.Document as IHTMLDocument2;
    　　　　　　if Doc.QueryCommandEnabled(''Copy'') then
    　　　　　　　Doc.ExecCommand(''Copy'',false,EmptyParam);
    　　　　　end;
    　　查找：　参考第九条“查找”功能。
    ------------------------------------------------------------------------------------------------
    ４、字体大小
    　　类似“字体”菜单上的从“最大”到“最小”五项（对应整数0～4，Largest等假设为五个菜单项的名字，Tag
    属性分别设为0～4）。
    　　　A、读取当前页面字体大小。
    　　　　　var
    　　　　　　t: OleVariant;
    　　　　　Begin
    　　　　　　WebBrowser1.ExecWB(OLECMDID_ZOOM,
    OLECMDEXECOPT_DONTPROMPTUSER,
    　　　　　　　EmptyParam,t);
    　　　　　　case t of
    　　　　　　4: Largest.Checked :=true;
    　　　　　　3: Larger.Checked :=true;
    　　　　　　2: Middle.Checked :=true;
    　　　　　　1: Small.Checked :=true;
    　　　　　　0: Smallest.Checked :=true;
    　　　　　　end;
    　　　　　end;
    　　　B、设置页面字体大小。
    　　　　　Largest.Checked :=false;
    　　　　　Larger.Checked :=false;
    　　　　　Middle.Checked :=false;
    　　　　　Small.Checked :=false;
    　　　　　Smallest.Checked :=false;
    　　　　　TMenuItem(Sender).Checked :=true;
    　　　　　t :=TMenuItem(Sender).Tag;
    　　　　　WebBrowser1.ExecWB(OLECMDID_ZOOM,
    OLECMDEXECOPT_DONTPROMPTUSER,
    　　　　　　t,t);
    ------------------------------------------------------------------------------------------------
    ５、添加到收藏夹和整理收藏夹
    　　　　 const
    　　　　　CLSID