Q&A

  • 이건 진짜 안되는건가요? 안되면 안된다고 말씀이라도...
안녕하십니까?

아래 소스로 프로그램을 돌리면 익스플로러가 폼위에서 실행 되자나요..



그러면 여기서 질문...



저는 여기 form에다가 panel을 하나 추가 시킨후



익스플로러를 panel안에서 실행 시킬려고 하거든요...



고수님들 도와 주십시요..



어떻게 안될까요?



미디어 플레이어는 panel에 display가 되는걸로 알고 있느데..



다른 응용 프로 그램은 panel 안에서 display 가 정말로 안되는 것인가요?



어떻게 좀 해줘봐요... 죽갔어요...



procedure TForm1.Button1Click(Sender: TObject);

var

wnd: HWND;

exefile:string;

begin

exefile := 'C:Program FilesInternet ExplorerIEXPLORE.EXE';

WINEXEC(PCHAR(exefile),SW_HIDE);

wnd := FindWindow('IEFrame',nil );

Windows.SetParent( wnd, Handle );

SetWindowPos( wnd,HWND_TOPMOST,0, 0, clientwidth, clientheight,

SWP_NOZORDER or SWP_SHOWWINDOW );

end;



1  COMMENTS
  • Profile
    최용일 2001.06.02 03:13
    안녕하세요. 최용일입니다...



    폼에들어가는데 판넬이라고 못들어갈리가 있겠습니까? 똑같은 윈도우인데...



    아래처럼 약간의 지연시간을 주세요... 아무리 빠른 컴퓨터라도 익스플로러가 뜨는데에는 많은(?) 시간이 걸리니까요... 아래의 OnClick이벤트를 실행하는 시간에 비하면 무지느리죠...



    근데 TWebBrowser컴포넌트를 이용하시는 것이 더 나을거 같군요... 심심풀이라면 몰라도...



    procedure TForm1.Button1Click(Sender: TObject);

    var

    wnd: HWND;

    exefile:string;

    begin

    exefile := 'C:Program FilesInternet ExplorerIEXPLORE.EXE';

    WINEXEC(PCHAR(exefile),SW_HIDE);

    wnd := FindWindow('IEFrame',nil );

    sleep(500);

    Windows.SetParent( wnd, Panel1.Handle );

    sleep(500);

    SetWindowPos( wnd,HWND_TOPMOST,0, 0, Panel1.Width, Panel1.Height,

    SWP_NOZORDER or SWP_SHOWWINDOW );

    end;



    ^^ 항상 즐코하세요...



    델초보 wrote:

    > 안녕하십니까?

    > 아래 소스로 프로그램을 돌리면 익스플로러가 폼위에서 실행 되자나요..

    >

    > 그러면 여기서 질문...

    >

    > 저는 여기 form에다가 panel을 하나 추가 시킨후

    >

    > 익스플로러를 panel안에서 실행 시킬려고 하거든요...

    >

    > 고수님들 도와 주십시요..

    >

    > 어떻게 안될까요?

    >

    > 미디어 플레이어는 panel에 display가 되는걸로 알고 있느데..

    >

    > 다른 응용 프로 그램은 panel 안에서 display 가 정말로 안되는 것인가요?

    >

    > 어떻게 좀 해줘봐요... 죽갔어요...

    >

    > procedure TForm1.Button1Click(Sender: TObject);

    > var

    > wnd: HWND;

    > exefile:string;

    > begin

    > exefile := 'C:Program FilesInternet ExplorerIEXPLORE.EXE';

    > WINEXEC(PCHAR(exefile),SW_HIDE);

    > wnd := FindWindow('IEFrame',nil );

    > Windows.SetParent( wnd, Handle );

    > SetWindowPos( wnd,HWND_TOPMOST,0, 0, clientwidth, clientheight,

    > SWP_NOZORDER or SWP_SHOWWINDOW );

    > end;

    >