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

WEB BROWSER ADDRESSES   Найти похожие ветки 

← →
Arthur   (2003-03-26 18:09) [0]

Привет! Как с помощью Delphi-программы можно вытащить URL адреса во всех запущенных в данный момент броузеров?
Спасибо

---

← →
Opuhshii ©   (2003-03-27 09:24) [1]

"во всех запущенных в данный момент броузеров",. имхо никак!,.. общего случая нет....

для IE справедливо


uses ComObj, SHdocVw;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
ShellWindows:IShellWindows;
InternetExplorer:IWebBrowser2;
URL:string;
I:Integer;
begin
ShellWindows:=CreateComObject(CLASS_ShellWindows) as IShellWindows;
for I:=0 to ShellWindows.Count-1 do begin
InternetExplorer:=ShellWindows.Item(I) as IWebBrowser2;
URL:=InternetExplorer.LocationURL;
ShowMEssage(URL);
end;
end;

---

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

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



Память: 0.44 MB
Время: 0.01 c