Скачать: CL | DM;

Интеграция с IE   Найти похожие ветки 

← →
Checist [root]   (2003-08-13 22:03) [0]

Есть у меня соурс для определения адресса в панели адресса Ie, но чего - то он не пашет. Ошибок нет но работает неверно, точнее ничего не выдает. Подскажите где ошибка и как ее поправить!
[IE 6]

function TFMain.GetURL:string;
var
ie,toolbar,combo,
comboboxex,edit,
worker,toolbarwindow:hwnd;
begin
ie := FindWindow(pchar("IEFrame"),nil);
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);
toolbarwindow := FindWindowEx(comboboxex, 0, "toolbarwindow32",
nil);
result := GetText(edit);
end;

procedure TFMain.Button1Click(Sender: TObject);
begin
Edit1.Text := GetURL;
end;

function TFMain.GetText(WindowHandle: hwnd):string;
var
txtLength : integer;
buffer: string;
begin
TxtLength := SendMessage(WindowHandle, WM_GETTEXTLENGTH, 0, 0);
txtlength := txtlength + 1;
setlength (buffer, txtlength);
sendmessage (WindowHandle,wm_gettext, txtlength, longint(@buffer
[1]));
result := buffer;
end;

end.

---

← →
Vulko ©   (2003-08-14 01:43) [1]

> ie := FindWindow(pchar("IEFrame"),nil);
> 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);
> toolbarwindow := FindWindowEx(comboboxex, 0, "toolbarwindow32",
> nil);

А ты уверен, что названия такие?

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c