Musik mit einem Befehl abspielen

[Custom]

PlaySound(Pchar('C:\Dokumente und Einstellungen\User\Eigene Dateien\Eigene Musik\song.mp3'),0,SND_ASYNC); wenn du keinen pfad eingibst wird die datei aus dem ordner des programmes genommen wenn du zum beispiel nur "sound/sound.mp3" als pfad angiibst öffnet das programm die datei aus dem undnerordner sound.

[Landfloh]

Danke an euch.

[Landfloh]

Bei mir kommt dann [Fehler] Unit1.pas( 28 ): Undefinierter Bezeichner: 'PlaySound' und [Fehler] Unit1.pas( 28 ): Undefinierter Bezeichner: 'SND_ASYNC' weiß jemand woran das liegt?

[Custom]

Delphi-Quellcode:

interface


uses
  mmsystem;

brauchst du glaube ich noch

[Landfloh]

Es funktioniert noch nich.
Das Programm läst sich zwar starten aber wenn ich dann auf den Button auf dem ich den Befehl habe drücke tut sich nichts.
Kann mir jeman helfen?

[DeddyH]

Geht es denn, wenn Du statt einer *.mp3 eine *.wav übergibst?

[igel457]

Ja, PlaySound kann nur über Tricks MP3-Dateien abspielen.

[turboPASCAL]

Zitat von igel457:

Ja, PlaySound kann nur über Tricks MP3-Dateien abspielen.

Aha, ist mich neu.

@Threadsteller, verwende doch bitte erst einmal die Forensuche. Threads zu Sounds etc. abspielen
wie auch immer gewünscht gibt es zu Hauf in der DP.

[Landfloh]

Ja super!
Kann man das auch einfach durch einen Befehl abbrechen?

[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;