Форум: "Основная";
Текущий архив: 2003.08.25;
Скачать: [xml.tar.bz2];
ВнизИнтеграция с 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 вся ветка
Форум: "Основная";
Текущий архив: 2003.08.25;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.024 c