Visual Basic, C & C++
분류 Delphi

델파이에서 ie 창 띄우기

페이지 정보

본문

uses 
  ComObj;

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

      if 0 <> WinHandle then
        begin
          IE.Navigate('http://www.nuno21.net/');
          SetForeGroundWindow(WinHandle);
        end;
    end;

end;
end.

관련자료

등록된 댓글이 없습니다.
프로그래밍
Today's proverb
지금까지 적을 만들어 본 적이 없는 사람은 결코 친구를 가질 수 없다. (알프레드 테니슨)