• Исходники
  • Исходники - CyberGuru.ru - все об IT и программировании

Как показать первый кадр AVI-файла?

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