안녕 하세요?

BacTeria 박종민 입니다.

오랜만에 답변을 하네요. 만만한 질문들이 없어서리...

아래의 내용들은 인터넷 익스플로러를 띄우는 방법들 입니다.

처음과 두번째는 진짜루 무식한 방법이구요.

마지막은 나름대로 좀 유식(?)한 방법이네요.

편하신대로 입맛에 맞게 쓰세요~

아래는 관련 코드입니다.

청주에서 박종민...

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  WinExec('START www.microsoft.com', SW_HIDE);
end;

procedure TForm1.Button2Click(Sender: TObject); 
begin                                          // uses 구문에 'ShellAPI'를 추가
  ShellExecute(0, nil, 'www.microsoft.com', nil, nil, SW_HIDE);
end;

procedure TForm1.Button3Click(Sender: TObject);
var                                            // uses 구문에 'ComObj'를 추가
  IE: Variant;
  WinHandle: HWND;
begin
  if VarIsEmpty(IE) then
  begin
    IE := CreateOLEObject('InternetExplorer.Application');
    IE.Visible := True;
    IE.Navigate('microsoft.com');
  end else begin
             WinHandle := FindWindow('IEFrame', nil);

             if 0 <> WinHandle then
             begin
               IE.Navigate('microsoft.com');
               SetForeGroundWindow(WinHandle);
             end;
           end;
end;


PS. 정상 동작 여부는 확인을 안해 보았으나 아마 정상 작동할 것 입니다.