Internetexplorer Seite ändern und absenden

[marabu]

Hallo Jan,

lass dir in der Schleife die Fenstergriffe ausgeben und vergleiche mit den Werten aus deinem Tool - vielleicht kannst du dann sehen, was schief läuft:

Delphi-Quellcode:

procedure TDemoForm.UrlButtonClick(Sender: TObject);
var
  sw: IShellWindows;
  i: Integer;
begin
  sw := CoShellWindows.Create;
  for i := 0 to Pred(sw.Count) do
    with sw.Item(i) as IWebBrowser2 do
      ShowMessage(Format('%d %s', [HWND, LocationURL]));
end;

Grüße vom marabu