| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите юзать чужие окна..... [D7, Win95/98, WinXP]
SamProf © (2005-06-21 12:19:00)Допустим у чужого окна есть батоны и едиты.... короче всякие визуальные компоненты...
У меня есть Хандла окна, очень бя хотелося получить все компоненты в этом окне и получить к ним доступ... ну к примеру текст изменить или положение....
Если можно, то напишите кусок кода!
Пасибо!!!!!
kaZaNoVa (2005-06-21 13:29:00) [1]SamProf © (21.06.05 12:19)
к примеру узнать открытый Урл, по хендлу:
function GetURL(t:Thandle):string;
var
ie,toolbar,combo,
comboboxex,edit,
worker,toolbarwindow:hwnd;
begin
ie :=t;// 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;
Eugene74 (2005-06-21 13:07:00) [2]Посмотри книгу "Delphi глазами хакера". Там есть несколько примеров на эту тему.
PVOzerski (2005-06-21 12:39:00) [3]EnumChildWindows. Кстати, тогда можно и FindWindowEx не использовать.
SamProf (2005-06-21 12:25:00) [4]А как их всех пересчитать?
DVM (2005-06-21 12:23:00) [5]
> получить к ним дост
FindWindowEx()
> ну к примеру текст изменить
WM_SETTEXT
> или положение
SetWindowPos()
| |
