如何将音频或视频文件读入LISTBOX中逐个按顺序自动播放

Question

如何将音频或视频文件读入LISTBOX中逐个按顺序自动播放

Answer 1

先定义一个结构
type
  pPlayListItem = ^TPlayListItem;
  TPlayListItem = Record
    Filename : String;
    Path : String;
  End;
加入列表用：
if OpenDialog1.Execute then
  begin
    Listbox1.Items.Clear;
    New(PlayListItem);
    PlayListItem^.Filename := ExtractFilename(OpenDialog1.FileName);
    PlayListItem^.Path := ExtractFilePath(OpenDialog1.FileName);
    ListBox1.Items.AddObject(PlayListItem^.Filename, TObject(PlayListItem));
    Listbox1.ItemIndex := 0;
    PlayFile(OpenDialog1.FileName);
    PlayingIndex := 0;
  end;
播放用：
　　PlayListItem := pPlayListItem(Listbox1.Items.Objects[Listbox1.ItemIndex]);
    Filename := PlayListItem^.Path;
    If Filename[Length(Filename)] <> '\' then
      Filename := Filename + '\';
    Filename := Filename + PlayListItem^.Filename;
    PlayFile(Filename);
    PlayingIndex := Listbox1.Itemindex;

Answer 2

pPlayListItem = ^TPlayListItem;个个" ^ "符号是什么意思啊

Answer 3

自定义pPlayListItem 为TPlayListItem类型 指针