Форум: "Сети";
Текущий архив: 2003.05.26;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Сети";
Текущий архив: 2003.05.26;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c