ExecuteScript?!

[citybreaker]

Ähm bei dem oberen link steht noch folgene funktion bei names "excutescript".
Tu die mal mit in Unit1 packen.

Delphi-Quellcode:

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;