Главная страница
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.016 c
14-83743
ZeroDivide
2003-05-05 08:43
2003.05.26
ASM


3-83325
smol_cerber
2003-05-07 10:48
2003.05.26
BDE + Paradox таблицы версии 3.5 в DOS-кодировке


9-83316
ogo
2002-12-17 12:45
2003.05.26
движение


1-83538
Valentino
2003-05-13 11:16
2003.05.26
Random...


14-83664
yaJohn
2003-05-05 17:17
2003.05.26
Грабли с ИнсталШилдЕкспресс - запись бинарного поля в реестр.