Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

HF-Trade © (2005-10-03 02:16:00)
Я добавил кнопку в осла, при нажатии надо
1 Прочитать урл из оного..
2 Изменить его(вложенной процедурой)
3 Вставить его в комбо Осла
4 Перейти по нему.

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

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

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

HF-Trade (2005-10-03 04:56:00) [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;

Adder (2005-10-03 02:31:00) [2]

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »