TWebBrowser Download abbrechen

[marabu]

Hallo,

wieso merkwürdig?

Delphi-Quellcode:

procedure TForm1.WebBrowserBeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  if SmartPos('.exe', URL, False, 1, True) > 0 then
  begin
    Cancel := True;
    with pDisp as IWebBrowser2 do Stop;
    Exit;
  end;
  // ...
end;

Gute Nacht