Текущий архив: 2005.10.30;
Скачать: CL | DM;

Вниз

получить последний(текущий)адрес из открытого IE   Найти похожие ветки 

← →
heady   (2005-08-26 18:13) [0]

Нашел по теме такой код:
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;

делает абсолютно то что нужно, но программа после выполнения не закрывается... не поможите? Зарание благодарен.

---

← →
Плохиш ©   (2005-08-26 18:25) [1]

http://www.swissdelphicenter.ch/en/showcode.php?id=198

---

← →
heady   (2005-08-26 18:43) [2]

Спасибо! не подскажите откуда взять NMHttp.dcu?

---

Страницы: 1 вся ветка

Текущий архив: 2005.10.30;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.054 c