Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[14553] Re:[질문]홈페이지를 열려면...
동그랑땡 [jsm0909] 1881 읽음    2013-01-09 13:55
저도 디폴트 브라우저 띄울때 그렇게 사용하는데
안될때도 있나 보군요...


아래는 IE 가 설치되어 있을때 IE로 띄우는 건데
이걸로 함 해보세요...



procedure ExecuteBrowserIE(aUrl :String);
const
  csOLEObjName = 'InternetExplorer.Application';
var
  IE        : Variant;
  WinHanlde : HWnd;
begin
  if VarIsEmpty( IE ) then
  begin
     IE := CreateOleObject( csOLEObjName );
     IE.Navigate2( aURL );
     IE.Visible := true;
     WinHanlde := IE.HWnd;
     SetForegroundWindow( WinHanlde );
  end
  else
  begin
    WinHanlde := FindWIndow( 'IEFrame', nil );

    if ( 0 <> WinHanlde ) then
    begin
       IE.Navigate( aURL );
       SetForegroundWindow( WinHanlde );
    end
    else
    begin
       ShowMessage('Internet Explorer를 찾을 수 없습니다.' + #13#10 +
                   'Internet Explorer가 올바르게 설치되어 있는지 확인하세요'
                  );

    end;
  end;
end;





이승근 님이 쓰신 글 :
: 델파이 6을 사용중에 있는데 예전에는 아래와 같이 해서 프로그램에서 홈페이지를 직접 열었었는데 언제부턴가 열리지를 않네요..
:
: uses ShellAPI;
:
: var
: FFileName : string;
:
: begin
:   FFileName := 'http://www.naver.com';
:   ShellExecute(0, 'open', PChar(FFileName), nil, nil, SW_SHOWNORMAL);
: end;
:
: 이유가 뭘까요???
:
: 혹시 다른 방법으로 홈페이지를 열수있는 방법이 있나요??

+ -

관련 글 리스트
14552 [질문]홈페이지를 열려면... 이승근 1715 2013/01/09
14553     Re:[질문]홈페이지를 열려면... 동그랑땡 1881 2013/01/09
14554         Re:Re:[질문]홈페이지를 열려면... 이즈니 2058 2013/01/09
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.