Como detectar la URL de una "página nueva"

[roman]

He estado dándole vueltas a tu pregunta y he llegado a algunos resultados.

Cuando un enlace abre una nueva ventana, antes de mostrarla genera el evento OnNewWindow2 al término del cual se crea la nueva instancia de IE vacia. Después de ello se generaría el evento OnBeforeNavigate2 en donde podrías determinar si permites o no la navegación. El punto es que en las condiciones por defecto, este evento no lo recibes ya que quien lo recibe es la nueva instancia de IE que ya no reside en tu apicación sino en una ventana de IE.

La forma en que podrías solucionar esto es cambiando tales condiciones por defecto, es decir, forzar a que la nueva ventana sea de tu aplicación y no de IE. Para ello, en el evento OnNewWindow2 pondrías:

Código Delphi [-]
with TForm1.Create(nil) do
  ppDisp := WebBrowser1.Application;

De esta forma el enlace se abre en una nueva instancia del browser que reside en una nueva instancia de Form1. Y ahí si puedes usar el evento OnBeforeNavigate2:

Código Delphi [-]
if SePuedeAbrir
  then Show
  else Close;

En el evento OnClose del formulario pones

Código Delphi [-]
Action := caFree

para que se liberen las nuevas instancias que se abran.

Seguramente hay que afinar detalles pero tal como está me ha funcionado bien.

// Saludos