菜鸟问题，在线马上给分

Question

uses ShellAPI;在ListBox的OnDblClick事件中写：
if Listbox1.ItemIndex = -1 then
  Exit;
ShellExecute(0, 'open', PChar(listbox1.Items[listbox1.ItemIndex]), nil, nil, SW_SHOW);

Answer 1

先声明
然后在OnDblClick事件中写：
if Listbox1.ItemIndex = -1 then
  Exit;
ShellExecute(0, 'open', PChar(listbox1.Items[listbox1.ItemIndex]), nil, nil, SW_SHOW);

Answer 2

双击后，从ListBox中提取相应的文件名
然后通过文件名把文件加载到你的播放器中

Answer 3

由于你自己的播放器不是系统默认的。如果你的播放器可以接收参数的话，那么可以这样试试：
ShellExecute(0, 'open', 'YourPlayer.exe', PChar(listbox1.Items[listbox1.ItemIndex]), nil, SW_SHOW);