Главная страница
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
3-83365
Dimedrol
2003-05-05 23:31
2003.05.26
GBAK и UDFs


3-83356
Apachi
2003-05-06 07:48
2003.05.26
IB работа с датой


1-83459
BLAST
2003-05-15 02:36
2003.05.26
Нужна помощь с TRichEdit по поиску ничего не нашел :-((


1-83598
MetalFan
2003-05-13 12:31
2003.05.26
Помогите найти ошибку плз!!!


6-83618
div
2003-03-25 06:48
2003.05.26
Связь по USB