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

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

Как узнать в експлорере адресс открытой страницы?

Alek ©   (2004-07-28 15:34:00) 

Как узнать в експлорере адресс открытой страницы?

---

Rouse_   (2004-07-29 15:41:00) [1]

Ну так а в чем проблема?

procedure TForm1.Timer1Timer(Sender: TObject);
var
 x: Integer;
 Sw: IShellWindows;
 Z: Integer;
begin
 sw := CoShellWindows.Create;
 Z := GetForegroundWindow;
 for x := 0 to SW.Count - 1 do
   if (Sw.Item(x) as IWebbrowser2).HWND = Z then
     Listbox1.Items.Add((Sw.Item(x) as IWebbrowser2).LocationUrl);
end;

---

Alek   (2004-07-29 12:41:00) [2]

второй способ неплох.

uses
 shdocvw_tlb;
 
procedure TForm1.Button2Click(Sender: TObject);
var
 x: Integer;
 Sw: IShellWindows;
begin
 sw := CoShellWindows.Create;
 for x := 0 to SW.Count - 1 do
   Listbox1.Items.Add((Sw.Item(x) as IWebbrowser2).LocationUrl);
end;

Но проблема в том что мне нужно узнать урл активного в данный мсомент окна. А со вторым способом я этого немогу узнать.

Незнаю как, может кто пожскажет?

---

nikkie   (2004-07-28 18:45:00) [3]

не надо импортировать.
uses shdocvw;

---

Rouse_   (2004-07-28 18:11:00) [4]

ActiveX импортируй (не помню точно его названия, что-то с браузером связанно - Easy или Nikkie должны знать)

---

Alek   (2004-07-28 17:17:00) [5]

пример с дде мне не подходит, а во втором примере нужен юнит shdocvw_tlb, где его достать?

---

Rouse_   (2004-07-28 16:27:00) [6]

http://www.swissdelphicenter.ch/en/showcode.php?id=198

---

Наверх