박대규 wrote:

> 안녕하세요. 큰도움과 희망이 생겨서 정말 기쁨니다..

>

> 근데 한가지만 더...^^

>

> 자꾸 이라인에서 에러가 생기거든요..

>

> IECommand: IOleCommandTarget;

>

> 아마도 uses절에 무언가를 포함시켜야 할것 같은데..?

> 알려주시면 정말 감사하겠습니다.

>

> 그럼, 즐거운 하루가 되세요..

>



지송합니다. 유닛을 알구 계실줄 알구... 쩝..



그래두 이쁘게 봐주셔요 ^^





unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, OleCtrls, SHDocVw, Activex; // 이걸 추가 했어야 합니다.



type

TForm1 = class(TForm)

Button1: TButton;

Edit1: TEdit;

Button2: TButton;

Button3: TButton;

WebBrowser: TWebBrowser;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);

begin

WebBrowser.Navigate('http://www.freechal.com/delphiworld');

end;





procedure TForm1.Button3Click(Sender: TObject);

var

VI, VO: OleVariant;

IECommand: IOleCommandTarget;

begin

IECommand := WebBrowser.Document as IOleCommandTarget;

IECommand.Exec(nil, 6, OLECMDEXECOPT_DONTPROMPTUSER, VI, VO);

end;



end.