¿Cómo saber la URL en el navegador?

[Alucho2007]

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.

[acertij022]

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;

[Alucho2007]

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...!

[Maycoll]

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.

[[cHackAll]]

Hola