저는 웹브라우저를 실행시킬때 다음과 같이 합니다. ShellExecute(0, PChar('open'), PChar('http://5.1.1.1:8080/html/index.html'), nil,nil,SW_MAXIMIZE); 이렇게 하면 웹브라우저가 일반적인 형태로 실행이 되는데 저는 메뉴가 없는 ...
넘버3
•
2004.02.26 20:13
Windows OS에서 기본적으로 제공하는 Internet Explorer를 호출하는 방식외에 웹브자우저만 사용할 경우는 ...
권영길
•
2004.02.26 21:00
var
IE : IWebbrowser2;
vUrl,
x : OleVariant;
begin
&n...
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;