Musik mit einem Befehl abspielen

[igel457]

Dürfen es auch drei Zeilen sein?

Delphi-Quellcode:

uses
  MMSystem;

const
  FileName =
    'C:\Dokumente und Einstellungen\Andreas\Eigene Dateien\Musik\Film-Musik\Pirates of the Caribbean.mp3';

begin
  MCISendString(PChar('open "'+FileName+'" alias myaudio'), nil, 0 , 0);
  MCISendString(PChar('play myaudio'), nil, 0, 0);
  [... SPÄTER ...]
  MCISendString(PChar('close myaudio'), nil, 0, 0);
end;