正文

显示AVI的第一桢

IP云
IP云V管理员/0 阅读
09/13
小程序：扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.ProcessMessages;
  MediaPlayer1.Open;
  Application.ProcessMessages;
  MediaPlayer1.Step;
  Application.ProcessMessages;
  MediaPlayer1.Previous;
end;