Приветствую Вас Гость | RSS

Меню сайта

Реклама

Категории раздела
ASP [2]
BackDoor [4]
CGI и Cookies [22]
Dial-up [0]
E-mail [0]
FTP [2]
ICQ [0]
TCP/IP [0]
Telnet [2]
URL [8]
XML [0]
Браузер [0]
Интернет [0]
Компоненты и Интернет [0]
Почтовый клиент [0]
Протоколы [0]
Сетевые диски [6]
Сеть [0]
Сокеты [0]
Файлы и Интернет [0]

Наш опрос
Есть ли у Вас свой сайт?
Всего ответов: 48

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа

Главная » Статьи » Интернет и Сети » URL

Как захватить текущий URL из окна Internet Explorer

Описываем две функции GetText и GetURL:


function GetText(WindowHandle: hwnd):string;
var
txtLength : integer;
buffer: string;
begin
TxtLength := SendMessage(WindowHandle, WM_GETTEXTLENGTH, 0, 0);
txtlength := txtlength + 1;
setlength (buffer, txtlength);
sendmessage (WindowHandle,wm_gettext, txtlength, longint(@buffer[1]));
result := buffer;
end;

function GetURL:string;
var
ie,toolbar,combo,
comboboxex,edit,
worker,toolbarwindow:hwnd;
begin
ie := FindWindow(pchar('IEFrame'),nil);
worker := FindWindowEx(ie,0,'WorkerA',nil);
toolbar := FindWindowEx(worker,0,'rebarwindow32',nil);
comboboxex := FindWindowEx(toolbar, 0, 'comboboxex32', nil);
combo := FindWindowEx(comboboxex,0,'ComboBox',nil);
edit := FindWindowEx(combo,0,'Edit',nil);
toolbarwindow := FindWindowEx(comboboxex, 0, 'toolbarwindow32', nil);
result := GetText(edit);
end;

Ну а затем пользуемся функцией GetURL, например, можем в поле ввода по нажатию на кнопку выводит текущий URL:


procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := GetURL;
end;

Категория: URL | Добавил: Angel (10.07.2008)
Просмотров: 536 | Рейтинг: 0.0/0
  Delphi Lab   Главная   Регистрация   Вход  
Интересная Цитата

Поиск

Магазин


Copyright MyCorp © 2025 Хостинг от uCoz