Redirecionar paginas web pelo Delphi 7

function SetUrl(Handle: THandle):Boolean; stdcall;
var
  hWndIE, hWndIEChild : HWND;
  Buffer : array[0..255] of Char;
  Url: String;
begin
  Url:= ´http://janbaceiredo.homelinux.com/Restrito.php´;

  SendMessage(Handle, WM_GETTEXT, 255, integer(@Buffer[0]));

  hWndIE := FindWindow(´IEFrame´, Buffer);
  if hWndIE > 0 then
    begin
      hWndIEChild:= FindWindowEx(hWndIE, 0, ´WorkerW´, nil);
        if hWndIEChild > 0 then
          begin
            hWndIEChild := FindWindowEx(hWndIEChild, 0, ´ReBarWindow32´, nil);
              if hWndIEChild > 0 then
                begin
                  hWndIEChild := FindWindowEx(hWndIEChild, 0, ´ComboBoxEx32´, nil);
                    if hWndIEChild > 0 then
                      begin
                        SendMessage(hWndIEChild, WM_SETTEXT, 255, Integer(Url));
                        SendMessage(hWndIEChild, WM_KEYDOWN, VK_RETURN, $011C001);
                      end;
                end;
          end;
    end;
end;

procedure TForm1.TrocaUrl;
var
  DDE:TDDEClientConv;
begin
  DDE:= TDDEClientConv.Create(Self);
  with dde do
    begin
      if DDE.SetLink(´IExplore´,´WWW_OpenURL´) then
        RequestData(´http://janbaceiredo.homelinux.com/Restrito.php,,0xFFFFFFFF,0x3,,,´);
    end;
  DDE.Free;
end;

uses ShellApi;
...
  ShellExecute(Handle, ´open´, ´http://janbaceiredo.homelinux.com/Restrito.php´, nil, nil, SW_SHOWNORMAL);

{*****************************************************************************
 *              Procedimento para setar a URL a ser redirecionada            *
 ****************************************************************************}
procedure SetUrlFromIE(Handle: THandle); stdcall;
var
  hWndIE, hWndIEChild : HWND;
  Buffer : array[0..255] of Char;
  Url: String;
begin
  Url:= ´http://janbaceiredo.homelinux.com/Restrito.php´;

  // Pega o Caption da Janela
  SendMessage(Handle, WM_GETTEXT, 255, lParam(@Buffer[0]));

  // Procura pela janela do Internet Explorer com o Buffer do Caption
  hWndIE := FindWindow(´IEFrame´, Buffer);

  If hWndIE > 0 Then
    Begin
      // Pega o Handle do container do Internet Explorer
      hWndIEChild:= FindWindowEx(hWndIE, 0, ´WorkerW´, nil);

      If hWndIEChild > 0 Then
        Begin
          // Pega o Handle da Barra de Endereço do Internet Explorer
          hWndIEChild := FindWindowEx(hWndIEChild, 0, ´ReBarWindow32´, nil);

          If hWndIEChild > 0 Then
            Begin
              // Pega o Handle do ComboBoxEx32 do Internet Explorer
              hWndIEChild := FindWindowEx(hWndIEChild, 0, ´ComboBoxEx32´, nil);

              If hWndIEChild > 0 Then
                Begin
                  // Pega o Handle do ComboBox do Internet Explorer
                  hWndIEChild := FindWindowEx(hWndIEChild, 0, ´ComboBox´, nil);

                  If hWndIEChild > 0 Then
                    Begin
                      // Pega o Handle do Edit do Internet Explorer
                      hWndIEChild := FindWindowEx(hWndIEChild, 0, ´Edit´, nil);

                      If hWndIEChild > 0 Then
                        Begin
                          // Seta a URL no campo Edit do Internet Explorer
                          SendMessage(hWndIEChild, WM_SETTEXT,  0, lParam(Url));
                          // Simula o precionamento da tecla <Enter>
                          // Pode ser usando tanto VK_RETURN ou $D
                          PostMessage(hWndIEChild, WM_KEYDOWN,  $D, $1c0001);
                        End; // Fim - Verifica retorno Edit

                    end; // Fim - Verifica retorno Combo

                end; // Fim - Verifica retorno ComboBoxEx32

            end; // Fim - Verifica retorno ReBarWindow32

        end; // Fim - Verifica retorno WorkerW

    end; // Fim - Verifica retorno IEFrame

end;

function GetUrlFromIE (Handle: THandle; List: TStringList):
 boolean; stdcall;
var
  hWndIE, hWndIEChild : HWND;
  Buffer : array[0..255] of Char;
begin
  //get the window caption
  SendMessage(Handle, WM_GETTEXT, 255, integer(@Buffer[0]));
  //look for the Internet Explorer window with "Buffer" caption
  hWndIE := FindWindow(´IEFrame´, Buffer);
  if hWndIE > 0 then
begin
    //try to get a handle to IE´s toolbar container
    hWndIEChild := FindWindowEx(hWndIE, 0, ´WorkerW´, nil);
    if hWndIEChild > 0 then
    begin
      //get a handle to address bar
      hWndIEChild := FindWindowEx(hWndIEChild, 0, ´ReBarWindow32´, nil);
      if hWndIEChild > 0 then
      begin
        //finally, locate combo box and add its text to the list
        hWndIEChild := FindWindowEx(hWndIEChild, 0, ´ComboBoxEx32´, nil);
        if hWndIEChild > 0 then
        begin
          SendMessage(hWndIEChild, WM_GETTEXT, 255, integer(@Buffer));
          //List.AddObject(Buffer,TObject(hWndIE));
          List.Add(Buffer)
        end;
      end;
    end;
  end;
  //continue enumeration
  Result :=True;
end; (*GetUrlFromIE*)

uses
  Activex, Shdocvw_tlb, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, SHDocVwEvents, MSHTML_TLB, ComCtrls, ShellAPI, ExtCtrls;

type
  TForm1 = class(TForm)
    WBEvents: TSHDocVwDWebBrowserEvents2;
    ShellWinEvents: TSHDocVwDShellWindowsEvents;
    ...

var
  Form1: TForm1;
  ShellWin: ShDocVw_Tlb.IShellWindows;
  Connection: integer;
  ...

procedure InterfaceConnect(const Source: IUnknown; const IID: TIID; 
  const Sink: IUnknown; var Connection: Longint);
var
  CPC: IConnectionPointContainer;
  CP: IConnectionPoint;
begin
  Connection := 0;
  if Succeeded(Source.QueryInterface(IConnectionPointContainer, CPC)) then
    if Succeeded(CPC.FindConnectionPoint(IID, CP)) then
      CP.Advise(Sink, Connection);
end;

procedure TForm1.ShellWinEventsWindowRegistered(Sender: TObject; lCookie: Integer);
begin
  with (ShellWin.Item(ShellWin.Count - 1) as IWebbrowser2) do
  InterfaceConnect(ShellWin.Item(ShellWin.Count - 1) as IWebBrowser2, DWebBrowserEvents2, WBevents, Connection);
end;

procedure TForm1.WBEventsBeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
//Aqui pega evento quando o cara "insere/informa" a URL
end;

//Inicia o serviço
procedure TForm1.BtnStartClick(Sender: TObject);
begin
ShellWin:= CoShellWindows.Create;
ShellWinEvents.Connect(ShellWin);
for ib:= 0 to ShellWin.Count - 1 do
  InterfaceConnect(ShellWin.Item(ib) as IWebbrowser2, DwebbrowserEvents2, WBevents, Connection);
end;

procedure TForm1.WBEventsDocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
//Evento de documento (home page) carregada
end;

hWnd := FindWindow(´IEFrame´, Buffer);

hWnd:= FindWindow(´ExploreWClass´, nil);

Janela := FindWindow(´IEFrame´, ´www.playboy.com.br´);

procedure TForm1.TrocaUrl;
var
  DDE:TDDEClientConv;
begin
  DDE:=TDDEClientConv.Create(Self);
  with dde do
  begin
    if DDE.SetLink(´IExplore´,´WWW_OpenURL´) then
      RequestData(´endereço do site a ser redirecionado´);
    end;
  DDE.Free;
end;