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;