TWebBrowser - Download verhindern

[MCXSC]

Wie wäre es mit:

Delphi-Quellcode:

procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  if URL <> 'http://www.google.de/' then Cancel := True;
end;