Выполнить скрипт на странице в WebBrowser

[rangel]

если в браузерах написать в адресной строке javascript:script... то он выполниться а как так сделать в TWebBrowser?
в IE тоже самое пишет Internet Explorer неудаётся загрузить...

[Kotofff]

Посмотри тут

[rangel]

Пасиб вот чуть разобрался теперь пашет на ура

function ExecuteScript(doc: IHTMLDocument2; script: string; language: string): Boolean;
var
  win: IHTMLWindow2;
  Olelanguage: Olevariant;
begin
  if doc <> nil then
  begin
    try
      win := doc.parentWindow;
      if win <> nil then
      begin
        try
          Olelanguage := language;
          win.ExecScript(script, Olelanguage);
        finally
          win := nil;
        end;
      end;
    finally
      doc := nil;
    end;
  end;
end;

procedure TForm1.Button9Click(Sender: TObject);
var
s:OleVariant;
IDoc1: IHTMLDocument2;
begin
Webbrowser1.Document.QueryInterface(IHTMLDocument2, iDoc1);
s:='javascript:сюда скрипт;
ExecuteScript(iDoc1,s,'JavaScript');
end;