Código Delphi [-]uses MMSystem; procedure TForm1.Button1Click(Sender: TObject); begin mciExecute(PChar('play '+Edit1.Text)); end;
uses MMSystem; procedure TForm1.Button1Click(Sender: TObject); begin mciExecute(PChar('play '+Edit1.Text)); end;