| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
получить последний(текущий)адрес из открытого IE [D7, WinXP]
heady © (2005-08-26 18:13:00)Нашел по теме такой код:
procedure TForm1.Memo1Click(Sender: TObject);
var
s : string;
wHandle : HWND;
begin
wHandle := FindWindow('IEFrame', nil);
repeat
wHandle := FindWindowEx(wHandle, 0, 'WorkerW', nil);
Application.ProcessMessages;
until isWindowVisible(wHandle); // несколько их там, невидимых
wHandle := FindWindowEx(wHandle, 0, 'ReBarWindow32', nil);
wHandle := FindWindowEx(wHandle, 0, 'ComboBoxEx32', nil);
// Memo1.Lines.Add(IntToHex(wHandle, 8));
SetLength(s, 1000);
SetLength(s, SendMessage(wHandle, WM_GETTEXT, 1000, integer(@s[1])));
Memo1.Lines.Add(s);
end;
делает абсолютно то что нужно, но программа после выполнения не закрывается... не поможите? Зарание благодарен.
heady (2005-08-26 18:43:00) [1]Спасибо! не подскажите откуда взять NMHttp.dcu?
Плохиш (2005-08-26 18:25:00) [2]http://www.swissdelphicenter.ch/en/showcode.php?id=198
| |
