用上面的通過ISHellUIHelper接口來打開“添加到收藏夾”對話框的方法比較簡單，但是有個缺陷，就是打開的窗口不是模式窗口，而是獨立於應用程序的。可以想象，如果使用與OrganizeFavorite過程同樣的方法來打開對話框，由於可以指定父窗口的句柄，自然可以實現模式窗口（效果與在資源管理器和IE中打開“添加到收藏夾”對話框相同）。問題顯然是這樣的，上面兩個過程的作者當時只知道shdocvw.dll中DoOrganizeFavDlg的原型而不知道DoAddToFavDlg的原型，所以只好用ISHellUIHelper接口來實現（或許是他不夠嚴謹，認為是否是模式窗口無所謂？）。
下面的過程就告訴你DoAddToFavDlg的函數原型。需要注意的是，這樣打開的對話框並不執行“添加到收藏夾”的操作，它只是告訴應用程序用戶是否選擇了“確定”，同時在DoAddToFavDlg的第二個參數中返回用戶希望放置Internet快捷方式的路徑，建立.Url文件的工作由應用程序自己來完成。
procedure TForm1.AddFavorite(IE: TEmbeddedWB);
procedure CreateUrl(AUrlPath, AUrl: PChar);
var
URLfile: TIniFile;
begin
URLfile := TIniFile.Create(String(AUrlPath));
RLfile.WriteString('InternetShortcut', 'URL',
String(AUrl));
RLfile.Free;
end;
var
AddFav: function(Handle: THandle;
UrlPath: PChar; UrlPathSize: Cardinal;
Title: PChar; TitleSize: Cardinal;
FavIDLIST: pItemIDList): Bool; stdcall;
FDoc: IHtmlDocument2;
UrlPath, url, title: array[0..MAX_PATH] of char;
H: HWnd;
pidl: pItemIDList;
FRetOK: Bool;
begin
FDoc := IHtmlDocument2(IE.Document);
if FDoc = nil then exit;
StrPCopy(Title, FDoc.Get_title);
StrPCopy(url, FDoc.Get_url);
if Url <> '' then
begin
H := LoadLibrary(PChar('shdocvw.dll'));
if H <> 0 then
begin
SHGetSpecialFolderLocation(0, CSIDL_FAVORITES, pidl);
AddFav := GetProcAddress(H, PChar('DoAddToFavDlg'));
if Assigned(AddFav) then
FRetOK :=AddFav(Handle, UrlPath, Sizeof(UrlPath),
Title, Sizeof(Title), pidl)
end;
FreeLibrary(h);
if FRetOK then
CreateUrl(UrlPath, Url);
end
end;
６、使WebBrowser獲得焦點
TWebBrowser非常特殊，它從TWinControl繼承來的SetFocus方法並不能使得它所包含的文檔獲得焦點，從而不能立即使用Internet
Explorer本身具有得快捷鍵，解決方法如下：
<
procedure TForm1.SetFocusToDoc;
begin
if WebBrowser1.Document <> nil then
with WebBrowser1.Application as IOleobject do
DoVerb(OLEIVERB_UIACTIVATE, nil, WebBrowser1, 0, Handle,
GetClIEntRect);
end;
除此之外，我還找到一種更簡單的方法，這裡一並列出：
if WebBrowser1.Document <> nil then
IHTMLWindow2(IHtmlDocument2(WebBrowser1.Document).ParentWindow).focus
剛找到了更簡單的方法，也許是最簡單的：
if WebBrowser1.Document <> nil then
IHtmlWindow4(WebBrowser1.Document).focus
還有，需要判斷文檔是否獲得焦點這樣來做：
if IHtmlWindow4(WebBrowser1.Document).hasfocus then
