Добрый день.

реализован протокол на Делфи. зарегистрировал в реестре, наследовал классы, как нужно. Все работает, но при нажатии на страничке на ссылку открывается Internet Explorer.

как сделать, чтобы когда пользователь нажимал на ссылку, IE не открывал страницу?

TMyInternetProtocol = class(TComObject, IInternetProtocol)

  { IInternetProtocolRoot }
    function Start(szUrl: LPCWSTR; OIProtSink: IInternetProtocolSink;
      OIBindInfo: IInternetBindInfo; grfPI, dwReserved: DWORD): HResult; stdcall;

.............

  end;

implementation

.............

function TMyInternetProtocol.Start(szUrl: LPCWSTR;
  OIProtSink: IInternetProtocolSink; OIBindInfo: IInternetBindInfo; grfPI,
  dwReserved: DWORD): HResult;
Var
  S : String;
Begin
  S := WideCharToString(szURL);

  DoParse(S); // функция реализации действия на вызов prot://blabla/....

  OIProtSink.ReportResult(S_OK, 0, nil);
  Result := HResult(E_PENDING);
  //Result:= S_FALSE;
end;