delphi 两行代码实现合并多张图片生成mp4视频

一、要求：
  1.图片为.jpg，png,bmp等；
  2.图片名称必须从1.jpg编号到....n.jpg；
二、ffmpeg参数说明：
  -r 8  //表示一秒显示8张图片；根据需要调整。
-start_number 1   //表示从名称编号为1的图片开始加载。
-i c:\pic\%d.jpg  //图片存放路径。
test.mp4            //生成mp4视频。
sw_hide            //后台生成视频，不显示cmd窗口

//(需要shellapi单元)
procedure savemp4(); //保存视频
var
  param:string;  //ffmpeg   参数(需要ffmpeg.exe的加v:byc6352)
begin
    param:='-r 8 -start_number 1 -i c:\pic\%d.jpg test.mp4';
    Shellexecute(0,pchar('open'),pchar('ffmpeg.exe'),pchar(param),nil,sw_hide); 
  end;