Werte an geklickten Links im Browser anhängen

[ptown67]

super, ich habe es zu teil hinbekommen!

Delphi-Quellcode:

procedure TForm1.BrowserBeforeNavigate2(ASender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
CONST
  ANSICHT = '?view=pt';
begin
if pos(ANSICHT, URL) = 0 then
  begin
    Cancel := True;
    URL := URL + ANSICHT;
    Label1.Caption:=URL;
    Browser.Navigate(URL);
  end;
end;

jedoch gibt es ja auch links im forum, wie z.b. diesen hier:
http://wap.se-world.info/board.php?boardid=114

da steht bereits ein wert der nach dem '?' kommt. in dem fall muss ich dafür dann ein '&view=pt' anhängen statt '?view=pt'.

jetzt muss ich nur noch herausfinden, wie ich es anstelle, dass wenn ein ? erkannt wird, dass er dann '&view=pt' statt '?view=pt' einsetzt.

aber fürs erste bin ich schon mal erleichtert.