Einzelnen Beitrag anzeigen

Benutzerbild von igel457
igel457

Registriert seit: 31. Aug 2005
1.622 Beiträge
 
FreePascal / Lazarus
 
#20

Re: Musik mit einem Befehl abspielen

  Alt 18. Feb 2008, 16:31
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;
Andreas
"Sollen sich auch alle schämen, die gedankenlos sich der Wunder der Wissenschaft und Technik bedienen, und nicht mehr davon geistig erfasst haben als die Kuh von der Botanik der Pflanzen, die sie mit Wohlbehagen frisst." - Albert Einstein
  Mit Zitat antworten Zitat