Q&A

  • 웹브라우저 실행과 관련된 질문입니다.
저는 웹브라우저를 실행시킬때 다음과 같이 합니다.

ShellExecute(0, PChar('open'),
                       PChar('http://5.1.1.1:8080/html/index.html'),
                       nil,nil,SW_MAXIMIZE);

이렇게 하면 웹브라우저가 일반적인 형태로 실행이 되는데

저는 메뉴가 없는 형태의 브라우저를 실행하고 싶습니다.

어떻게 하면 가능할까요?
2  COMMENTS
  • Profile
    넘버3 2004.02.26 20:13
    Windows OS에서 기본적으로 제공하는 Internet Explorer를 호출하는 방식외에 웹브자우저만 사용할 경우는 TWebBrowser라는 컴포넌트를 사용하시면 됩니다. 사용 방법은 아래와 같습니다. 질문한 내용이 맞는지 모르겠네요. 그럼 즐거운 코딩되세요...

    unit Unit1;

    interface

    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, OleCtrls, SHDocVw;

    type
      TForm1 = class(TForm)
        WebBrowser1: TWebBrowser;
        Button1: TButton;
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;

    var
      Form1: TForm1;

    implementation

    {$R *.dfm}

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      WebBrowser1.Navigate('http://5.1.1.1:8080/html/index.html');
    end;


  • Profile
    권영길 2004.02.26 21:00
    var
      IE : IWebbrowser2;
      vUrl,
      x : OleVariant;
    begin
      try
        IE := CoInternetExplorer.Create;
        IE.Visible := True;
        IE.AddressBar := false;
        IE.StatusBar := false;
        IE.MenuBar := false;
        IE.ToolBar := 0;
        IE.Width := 300;
        IE.Height := 500;
        vUrl := '가고싶은곳';
        IE.Navigate2(vUrl, x,x,x,x);
      except
      end;
    end;