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

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

← →
Alek ©   (2004-07-28 15:34) [0]

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

---

← →
Rouse_ ©   (2004-07-28 16:27) [1]

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

---

← →
Alek ©   (2004-07-28 17:17) [2]

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

---

← →
Rouse_ ©   (2004-07-28 18:11) [3]

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

---

← →
nikkie ©   (2004-07-28 18:45) [4]

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

---

← →
Alek ©   (2004-07-29 12:41) [5]

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

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;

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

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

---

← →
Rouse_ ©   (2004-07-29 15:41) [6]

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

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;

---

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

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



Память: 0.46 MB
Время: 0.022 c