¿Cómo saber la URL en el navegador?
 

Hola a todos los colegas:
Necesito insertar un código en mi programa que me diga la URL que está visitando en ese momento el usuario en la PC. O sea, necesito coger la URL que tiene el navegador web que esté utilizando en ese momento.
Gracias de antemano por la ayuda. :confused:

Espero que sea de ayuda

Código Delphi [-]
function GetURL_IE: string;
var
  hIeWindow, hWorkerA, hToolbar, hComboBoxEx,
  hComboBox, hEdit: hWnd;
  Buffer: array[0..255] of Char;
begin
  hIeWindow := FindWindow('IEFrame', nil);
  if hIeWindow  0 then begin
    hWorkerA := FindWindowEx(hIeWindow, 0, 'WorkerA', nil);
    hToolbar := FindWindowEx(hWorkerA, 0, 'RebarWindow32', nil);
    hComboBoxEx := FindWindowEx(hToolbar, 0, 'ComboBoxex32', nil);
    hComboBox := FindWindowEx(hComboBoxEx, 0, 'ComboBox', nil);
    hEdit := FindWindowEx(hComboBox, 0, 'Edit', nil);
    Sendmessage (hEdit, WM_GETTEXT, Length(Buffer), Longint(@Buffer));
    Result := String(Buffer);
  end
  else
    Result := '';
end;

Gracias acertij022, ahora mismo lo probaré. La única duda que me salta es que sólo funcionaría para el Internet Explorer, pues donde voy a aplicarlo se usa también el Mozilla Firefox.
De todas formas me sirve de mucho, gracias...!

el codigo da error
 

estimados amigos, revisando el codigo me da eror en esta parte

if hIeWindow 0 then begin

y si pudieran explicar un poco mas del tema para enternder mejor
por favor me interesa el tema gracias por su colaboracion.