Как показать первый кадр AVI-файла?
procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.FileName := 'FileName.avi';
MediaPlayer1.Open;
Application.ProcessMessages;
MediaPlayer1.Step;
Application.ProcessMessages;
MediaPlayer1.Previous;
end;
|