Q&A

  • 고수님 한번만 더 도와 주십시요...
다름이 아니고..

아래와 같이 코딩하여 panel안에서 미디어 플레이어를 실행 할려고 하니까

그냥 폼 위에 떠 버리고 panel 안으로는 안들어 가는데 어떤 좋은 방법이 없겠습니까?



다른 프로그램(예로 노트패드, 인터넷)은 다들 판넬 속에서 실행되는디 유독 미디어 플래이어만 판넬속에서 실행이 안되네요...



혹 어떤 고수님들께서는 미디어 플레이어의 내용을 판넬에 그대로 display 해주시는 방법을 쓰면 될것이라 말씀 하시겠지만 제가 지금하는 프로그램은 최후에는 미디어플레이어와 비슷한 프로그램을 판넬속에 띄우는 일이거든요...



그래서 꼭 미디어 플레이어를 판넬속에서 먼저실행 시켜야 됩니다..



꼭 도와 주십시요...







procedure Tface.Button1Click(Sender: TObject);

var

wnd : hwnd;

exefile : string;

begin

exefile := 'c:program fileswindows media playermplayer2';

winexec(pchar(exefile),sw_hide);

wnd := findwindow('mplayer2',nil);

windows.SetParent(wnd,panel1.Handle);

setwindowpos(wnd,hwnd_topmost,0,0,panel1.Width,panel1.Height,SWP_NOZORDER or SWP_SHowwindow);

end;



6  COMMENTS