delphi xe firemonkey 调用VLC播放器播放视频

var

wc:twincontrol;

w:TWinWindowHandle;

begin

player:=TPasLibVlcPlayer.Create(self);

w:=windowhandletoplatform(handle);

wc:=twincontrol.CreateParented(w.Wnd);

wc.Width:=500;

wc.Height:=100;

player.Parent:=wc;

player.Play('d:\1.mp4');

end;