Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.26;
Скачать: 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 вся ветка

Текущий архив: 2003.05.26;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.012 c
6-83634
serg222
2003-03-20 17:30
2003.05.26
Подключение из Delphi к Web-серверу по протоколу HTTP.


1-83582
tv
2003-05-14 13:06
2003.05.26
Работа с изображениями в потоке


14-83725
VID
2003-05-07 10:43
2003.05.26
Захват экрана


1-83495
EugeneL
2003-05-15 12:14
2003.05.26
Передача параметров из Microsoft ScriptControl


1-83469
User
2003-05-14 16:09
2003.05.26
доступ к структуре из разных классов?