Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.23;
Скачать: CL | DM;

Вниз

Как считать текущий адрес из ИЕ?   Найти похожие ветки 

 
ПрогерШ   (2004-05-11 18:22) [0]

Мастаки как обойти все запущеные ИЕ и считать из них адреса?


 
IceBeerg ©   (2004-05-11 18:30) [1]

Исползуй FindWindowEx(..., ищи дочернее окно от Эксплорере тип и путь посмитри WinSign"ом.


 
OlegGashev ©   (2004-05-11 18:36) [2]

Для активного окна:

function TSDIAppForm.GetURL:string;
var
       ie,toolbar,combo,comboboxex,edit,worker:hwnd;
begin
 ie := FindWindow(pchar("IEFrame"),nil);

 worker := FindWindowEx(ie,0,"WorkerW",nil);
 if worker=0 then
       worker := FindWindowEx(ie,0,"WorkerA",nil);

 toolbar := FindWindowEx(worker,0,"rebarwindow32",nil);
 comboboxex := FindWindowEx(toolbar, 0, "comboboxex32", nil);
 combo := FindWindowEx(comboboxex,0,"ComboBox",nil);
 edit := FindWindowEx(combo,0,"Edit",nil);
 result := GetText(edit);
end;


 
IceBeerg ©   (2004-05-11 18:38) [3]

> OlegGashev ©   (11.05.04 18:36) [2]
Во-во. Именно так.


 
8ung ©   (2004-05-11 19:27) [4]

function Get_URL(Servicio: string): String;
var    Cliente_DDE: TDDEClientConv;
temp:PChar;      //<<-------------------------This is new
begin
Result := "";
Cliente_DDE:= TDDEClientConv.Create( nil );
with Cliente_DDE do
begin
SetLink( Servicio,"WWW_GetWindowInfo");
temp := RequestData("0xFFFFFFFF");
Result := StrPas(temp);
StrDispose(temp);  //<<-&#207;&#240;&#229;&#228;&#238;&#242;&#226;&#240;&#224;&#249;&#224;&#229;&#236; &#243;&#242;&#229;&#247;&#234;&#243; &#239;&#224;&#236;&#255;&#242;&#232;
CloseLink;
end;
if Length(Result)>0 then
begin
delete(Result,pos(""",Result),1);
delete(Result,pos(""",Result),Length(Result)-pos(""",Result)+1);
end;
Cliente_DDE.Free;
end;

....
Edit1.Text := Get_URL("IExplore");



Страницы: 1 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.044 c
3-1083320283
Timon
2004-04-30 14:18
2004.05.23
Помогите избавиться от ошибки?


3-1082726362
Polevi
2004-04-23 17:19
2004.05.23
sp_executesql


14-1083330445
McSimm
2004-04-30 17:07
2004.05.23
Microsoft. Конурс для разработчиков


1-1083916174
Zlodey
2004-05-07 11:49
2004.05.23
Проверка на существование MDI-Child


14-1083228811
gn
2004-04-29 12:53
2004.05.23
В Украине сертифицирован первый отечественный IP-телефон