vfp怎么调用并播放视频文件

vfp如何调用并播放视频文件
请问专家：vfp如何调用并播放exe格式的视频文件？如果不能播放，vfp能播放什么格式的视频文件？

------解决方案--------------------
vfp 自己没有播放功能
但你可以调用操作系统提供的功能来播放
例如，最简单的：
Declare Long ShellExecute in shell32 Long,String,String,String,String,Long
* ShellExecute(0,'open',GetFile('avi'),'','',1)
ShellExecute(0,'open',GetFile('exe'),'','',1)
如果你双击这个 exe 可以播放的话，上面代码做同样的事