Как воспроизводить аудио файлы путём перенесения их на ListBox?

[Yoshka]

Как воспроизводить аудио файлы путём перенесения их на ListBox?

[Terran]

Uses
  ShellAPI,
...
Private
    { Private declarations }
  Procedure WMDropFiles (Var Msg: TMessage);
  Message WM_DropFiles;
...
Procedure TForm1.FormCreate(Sender: TObject);
Begin
DragAcceptFiles(Handle,True);
End;
Procedure TForm1.WMDropFiles(Var Msg: TMessage);
Var
FileName: Array[0..256] Of Char;
Begin
DragQueryFile(THandle(Msg.WParam), 0, FileName, SizeOf(Filename));
ListBox1.Items.Add(FileName);
DragFinish(THandle(Msg.WParam));
//Тут воспроизводите.
End;

Можете воспроизвести через MediaPlayer или отдельные функции.