Как обратиться к IE как к серверу COM ?

← →
Геннадий (2002-10-09 20:38) [0]

Например узнать, что хочет загрузить броузер? Какая страничка сейчас открыта и прочее. Как ему вместо запрашиваемой "подсунуть" свою/другую ? В общем, как к нему подключиться и как им управлять?

← →
Opuhshii © (2002-10-10 10:52) [1]

легко,... %)

uses SHDocVw;

procedure TForm1.Button1Click(Sender: TObject);
var
SWs:ShellWindows;
IE:Variant;
Doc:Variant;
I:Integer;
begin
SWs:=CoShellWindows.Create;
for i:= 0 to SWs.Get_Count-1 do begin
IE:=SWs.Item(i);
Doc:=IE.Document;
Memo1.Lines.Add(IE.LocationName+" "+Doc.Title);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
SWs:ShellWindows;
IE:Variant;
I:Integer;
begin
SWs:=CoShellWindows.Create;
for i:= 0 to SWs.Get_Count-1 do begin
IE:=SWs.Item(i);
IE.Navigate(" http://student.noolab.ru");
end;
end;

← →
Геннадий (2002-10-10 11:32) [2]

Спасибо.

Как обратиться к IE как к серверу COM ? Найти похожие ветки