| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как обратиться к IE как к серверу COM ? [D6, WinME, WinXP]

Геннадий ©   (2002-10-09 20:38:00) 

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

---

Геннадий   (2002-10-10 11:32:00) [1]

Спасибо.

---

Opuhshii   (2002-10-10 10:52:00) [2]

легко,... %)


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;

---

Наверх