Скачать: CL | DM;

Как обратиться к 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]

Спасибо.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c