14.10.2010, 18:09
|
|
Продвинутый
|
|
Регистрация: 07.09.2010
Сообщения: 726
Репутация: 26711
|
|
Тогда пишите так:
Код:
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;
__________________
Помогаю за Спасибо
|