Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.049 c
14-1128622635
NewWonder
2005-10-06 22:17
2005.10.30
Html


14-1128701922
X9
2005-10-07 20:18
2005.10.30
Вопрос знатокам XML (и Delph :) )


14-1128763750
Buss
2005-10-08 13:29
2005.10.30
Сайт


14-1128842983
Карелин Артем
2005-10-09 11:29
2005.10.30
Посоветуйте работающую связку виртуальная машина + линукс новый.


14-1129008181
Ega23
2005-10-11 09:23
2005.10.30
С днем рождения! 11 октября