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

← →
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;

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

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;

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

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

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

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;

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