首页 > 代码库 > 显示AVI的第一桢

显示AVI的第一桢

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

显示AVI的第一桢