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;
delphi xe firemonkey 调用VLC播放器播放视频
原文：http://www.cnblogs.com/HuiLove/p/4609495.html