程序让我变得忧郁 帮帮

delphi  怎么获取原视频的大小比例啊   我用dspack做了一个播放器   播放的时候是按里面videoWindos控件的高和宽显示的  这样一来  就变型了   真郁闷     希望大小帮帮  不能解决的希望也给点支持  谢谢