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.