delphi xe 播放视频

在 Delphi XE 中，可以使用 TMediaPlayer 控件来播放视频。您需要将 TMediaPlayer 控件拖放到窗体上，并设置 FileName 属性为视频文件的路径。

接下来，您可以使用以下代码来控制视频的播放和暂停：

MediaPlayer1.FileName := 'video.mp4'; // 设置视频文件路径
MediaPlayer1.Open; // 打开视频文件
MediaPlayer1.Play; // 播放视频

// 暂停视频
if MediaPlayer1.Mode = mpPlaying then
  MediaPlayer1.Pause;

// 继续播放视频
if MediaPlayer1.Mode = mpPaused then
  MediaPlayer1.Play;

您还可以使用 TTrackBar 控件来控制视频的进度。在 TTrackBar 的 OnChange 事件中，使用以下代码来设置视频的当前位置：

MediaPlayer1.Position := TrackBar1.Position;

希望这些代码能帮助您实现 Delphi XE 中的视频播放功能。