[ALexandr555]

Код:

procedure TFavoritesMenu.AddFavorite(Sender: TObject);
var
  ShellUIHelper: ISHellUIHelper;
  Url, Title: Olevariant;
begin
  if Assigned(FWebbrowser) then begin
    Title := FWebbrowser.LocationName;
    Url := FWebbrowser.LocationUrl;
    if Url <> '' then begin
      CoCreateInstance(CLSID_SHELLUIHELPER, nil, CLSCTX_INPROC_SERVER,
        IID_IShellUIHelper, ShellUIHelper);
      ShellUIHelper.AddFavorite(Url, Title);
      RebuildMenu;
    end
    else Showmessage('No URL selected.');
  end else
    Showmessage('No Webbrowser connected to Favorites-menu.');
end;

вот не работает чегото добавление в избранные всегда выдает 'No Webbrowser connected to Favorites-menu.'

кто может подсказать в чем проблема (код не мой)

[v1s2222]

Код:

{
Delphi функция Assigned проверяет является ли указатель nil. Если не nil, то возвращает True; если nil, то False. 
}
 if Assigned(FWebbrowser) then begin

Соответственно FWebBrowser у вас не создан (т.к. он сейчас = nil)...

[ALexandr555]

он создан.

[v1s2222]

Тогда пишите так:

Код:

procedure TFavoritesMenu.AddFavorite(Sender: TObject);
var
  ShellUIHelper: ISHellUIHelper;
  Url, Title: Olevariant;
begin
    Title := FWebbrowser.LocationName;
    Url := FWebbrowser.LocationUrl;
    if Url <> '' then begin
      CoCreateInstance(CLSID_SHELLUIHELPER, nil, CLSCTX_INPROC_SERVER,
        IID_IShellUIHelper, ShellUIHelper);
      ShellUIHelper.AddFavorite(Url, Title);
      RebuildMenu;
    end
    else Showmessage('No URL selected.');
end;

[ALexandr555]

ошибка так вылетает

[v1s2222]

Ошибка вылетает потому что FWebBrowser = nil!!!