Текущий архив: 2004.10.03;
Скачать: 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 вся ветка
Текущий архив: 2004.10.03;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.029 c
