// 소스입니다.

uses
  Comobj;

var
  IEApp: OLEVariant;
  IEHandle: HWND;

function CheckExplorer(ExpOle: OLEVariant; ExpHWND: HWND): Boolean;
begin
  // 생성한 Explorer 검사
  Result:= Not VarIsNull(IEApp) and IsWindow(IEHandle);
end;

function RunInternetExploreOLE(const URL: String; const FullScreen: Boolean = True): OLEVariant;
begin
  Result:= CreateOLEObject('InternetExplorer.Application');
  Result.Visible := True;
  if FullScreen then
  begin
    Result.Top     := 0;
    Result.Left    := 0;
    Result.Width   := Screen.Width;
    Result.Height  := Screen.Height;
  end;
  Result.Navigate(URL);
end;

function ForceSetForegroundWindow(AHandle: HWND): Boolean;
var
  fromId, toId: DWORD;
begin
  fromId:= GetCurrentThreadId();
  toId:= GetWindowThreadProcessId(GetForegroundWindow, nil);
  AttachThreadInput(fromId, toId, TRUE);
  Result:= SetForegroundWindow(AHandle);
  AttachThreadInput(fromId, toId, FALSE);
end;

// 최소화 되었을 경우에도 다시 복원 후 Focus 하기
procedure ShowFindWindow(WND: HWND);
var
  Placement: TWindowPlacement;
begin
  if IsWindow(WND) then
  begin
    Placement.length := SizeOf(TWindowPlacement);
    GetWindowPlacement(WND, @Placement);
    case Placement.showCmd of
      SW_SHOWMINIMIZED:
        ShowWindow(WND, SW_RESTORE)
      else
        ShowWindow(WND, SW_SHOW);
    if GetActiveWindow <> WND then
      ForceSetForegroundWindow(WND);
  end;
end;

procedure TForm2.Button1Click(Sender: TObject);
const
  cURL: String = 'http://www.swissdelphicenter.ch/torry/';
begin
  // 기존에 생성한 Explorer 검사
  if CheckExplorer(IEApp, IEHandle) then
  begin
    IEApp.Navigate(cURL);
    ShowFindWindow(IEHandle);
  end else
  begin
    // 생성하기
    IEApp:= RunInternetExploreOLE(cURL);
    //InternetExplorer 속성은 SHDocVw.pas 의 IWebBrowserApp 인터페이스 참조
    IEHandle:= IEApp.HWND; //Handle 등록
  end;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
  // ForeGround 하기
  if CheckExplorer(IEApp, IEHandle) then
    ShowFindWindow(IEHandle)
  else
    IEApp:= Unassigned;
end;


익스플로러의 브라우저를 컨트롤 하려면 SHDocVW, MSHTML_TLB, MSHTML 의 인터페이스를 참고하세요.
그럼 즐코^^;