Текущий архив: 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.033 c