получить последний(текущий)адрес из открытого 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?

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