Как зная хэндл открытого окна Осла работать со строкой ввода урла

← →
HF-Trade © (2005-10-03 02:16) [0]

Я добавил кнопку в осла, при нажатии надо
1 Прочитать урл из оного..
2 Изменить его(вложенной процедурой)
3 Вставить его в комбо Осла
4 Перейти по нему.

IEHwnd := FindWindow("IEFrame", nil);

Как зная хэндл считать из Ослика то что в комбобоксе и присвоить ему новый урл?

Вощем хелп по пункту 1,3,4 (Ну 4 в принципе пофигу - сам ентер ткну или послать сообщение нажатия ентер? В общем не особо надо...)
:)

← →
Adder © (2005-10-03 02:31) [1]

> Я добавил кнопку в осла, при нажатии надо

Бедное животное....

Оно не бедное - оно скудное;)

В факе пример как получить урл из ослика - но он не пашет вот код -
Окошко ослика находит, а из строки урла ничего не берет...

function 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;

function 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 TForm1.Button1Click(Sender: TObject);
begin
showmessage(GetURL);
end;

Как зная хэндл открытого окна Осла работать со строкой ввода урла Найти похожие ветки