Delphi的TWebBrowser編程綜述(3)

４、字體大小

類似“字體”菜單上的從“最大”到“最小”五項（對應整數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_ShellUIHelper: TGUID =
　　 '{64AB4BB7-111E-11D1-8F79-00C04FC2FBE1}';
　　　　　　 var
　　　　　　　 p:procedure(Handle: THandle; Path: PChar); stdcall;
　　　　　　 procedure TForm1.OrganizeFavorite(Sender: Tobject);
　　　　　　 var
　　　　　　　 H: HWnd;
　　　　　　 begin
　　　　　　　 H := LoadLibrary(PChar('shdocvw.dll'));
　　　　　　　 if H <> 0 then
　　　　　　　 begin
　　　　　　 p := GetProcAddress(H, PChar('DoOrganizeFavDlg'));
　　　　　　　　 if Assigned(p) then p(Application.Handle,
　　 PChar(FavFolder));
　　　　　　　 end;
　　　　　　　 FreeLibrary(h);
　　　　　　 end;

　　　　　　 procedure TForm1.AddFavorite(Sender: TObject);
　　　　　　 var
　　　　　　　 ShellUIHelper: ISHellUIHelper;
　　　　　　　 url, title: Olevariant;
　　　　　　 begin
　　　　　　　 Title := Webbrowser1.LocationName;
　　　　　　　 Url := Webbrowser1.LocationUrl;
　　　　　　　 if Url <> '' then
　　　　　　　 begin
　　　　　　　　 ShellUIHelper := CreateComObject(CLSID_SHELLUIHELPER) as
　　 IShellUIHelper;
　　　　　　　　 ShellUIHelper.AddFavorite(url, title);
　　　　　　　 end;
　　　　　　 end;