WebBrowser 혹은 EmbeddedWB을 이용하여
브라우저를 직접 만들어서 보여주는건 어떨까요.
동그랑땡 님이 쓰신 글 :
: 저도 디폴트 브라우저 띄울때 그렇게 사용하는데
: 안될때도 있나 보군요...
:
:
: 아래는 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;
: :
: : 이유가 뭘까요???
: :
: : 혹시 다른 방법으로 홈페이지를 열수있는 방법이 있나요??
|