안녕 하세요?

BacTeria 박종민 입니다.

아래 예제는 Internet Explorer를 호출 하는 예입니다.

참고 하세요.

이만... 박종민...

-----------------------------------------------------------------

uses ..., ComObj

  :
  :
var
  Form1: TForm1;
  IE: Variant;
  WHandle: HWND;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if VarIsEmpty(IE) then
  begin
    IE := CreateOleObject('InternetExplorer.Application');
    IE.Visible := True;
    IE.Navigate('www.chollian.net');
  end else begin
             WHandle := FindWindow('IEFrame', nil);

             if 0 <> WHandle then
             begin
               IE.Navigate('www.chollian.net');
               SetForeGroundWindow(WHandle);
             end;
           end;
end;