Главная страница
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
14-83716
Neznamo kto
2003-05-06 20:55
2003.05.26
Help me with DXINPUT !!!!!!!!!!!!!!!


1-83608
_Igorek
2003-05-14 18:05
2003.05.26
Ошибка при вставке собственного компонента из буфера обмена


8-83616
FROM_X
2003-02-13 13:27
2003.05.26
DirectSS кто нить работал с ним? Вопрос...


14-83667
Ziv
2003-04-30 17:02
2003.05.26
Проблема с запуском Kylix-a


14-83710
Nick-From
2003-05-05 13:09
2003.05.26
Как с безболезненно вычистить систему?