在我的程序中,如何调用windows media player的可视化效果,显示在我的窗口中?

Question

问题同题目

Answer 1

别的我不会，给你一个绑架窗体的（可能并不是你想要的）：//Form1上放一个Panel1，一个Button1。Panel1拉大一点。var
  OldP , hW : HWND;procedure TForm1.Button1Click(Sender: TObject);
begin
  hW := FindWindow(nil,PChar('Windows Media Player'));
  if hW <> 0 then
     begin
     OldP := GetParent(hW);
     Windows.SetParent(hW, Panel1.Handle);
     end else showmessage('请先打开WindowsMediaPlayer');
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
  if hW <> 0 then
     Windows.SetParent(hW,OldP);
end;

Answer 2

谢谢,这个能把Media palyer 整个在panel中显示,我现在只需要将动态可视化效果显示出来即可.