Цитата:
|
Сообщение от NumLock
примитивный:
Код:
uses
NumLock,
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text:=innerHTML(917906);
end;
917906 - это HWND окна класса Internet Explorer_Server
возвращает исх. текст страницы
http://data.cod.ru/124916 |
1000 раз спасибо , наконецто , вот это то что мне было нужно