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

Сначала Джон Леннон назвал свою группу "Beetles". Но оказалось, что адрес www.beetles.com уже занят какими-то жуками. С тех пор группа называется "Beatles".

Описываем две функции 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;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 799 • TDictionary Custom Sort 6 799 • Fast Watermark Sources 6 585 • 3D Designer 9 540 • Sik Screen Capture 6 921 • Patch Maker 7 373 • Айболит (remote control) 7 307 • ListBox Drag & Drop 6 173 • Доска для игры Реверси 98 114 • Графические эффекты 7 486 • Рисование по маске 6 778 • Перетаскивание изображений 5 630 • Canvas Drawing 6 009 • Рисование Луны 5 800 • Поворот изображения 5 253 • Рисование стержней 3 849 • Paint on Shape 3 006 • Генератор кроссвордов 3 958 • Головоломка Paletto 3 140 • Теорема Монжа об окружностях 3 971 • Пазл Numbrix 2 622 • Заборы и коммивояжеры 3 433 • Игра HIP 2 350 • Игра Go (Го) 2 264 • Симулятор лифта 2 666 • Программа укладки плитки 2 229 • Генератор лабиринта 2 780 • Проверка числового ввода 2 385 • HEX View 2 723 • Физический маятник 2 414