Author: Tomas Rutkauskas

How to get the TMediaPlayer to show the first frame of an AVI file

Answer:

1   procedure TForm1.Button1Click(Sender: TObject);
2   begin
3     Application.ProcessMessages;
4     MediaPlayer1.Open;
5     Application.ProcessMessages;
6     MediaPlayer1.Step;
7     MediaPlayer1.Previous;
8   end;