Thema: Delphi Repeat Funktion

Einzelnen Beitrag anzeigen

Benutzerbild von Flocke
Flocke

Registriert seit: 9. Jun 2005
Ort: Unna
1.172 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#2

Re: Repeat Funktion

  Alt 4. Feb 2006, 17:27
Als Alternative zum Media-Player kann ich dir anbieten, den Hintergrundsound als Ressource in dein Programm einzubinden und einfach so abzuspielen:

Delphi-Quellcode:
{$R hintergrund.res}

procedure Hintergrundklang(AnAus: boolean);
begin
  if AnAus then
    PlaySound('BACKGROUND', hInstance, SND_ASYNC or SND_LOOP or SND_RESOURCE)
  else
    PlaySound(nil, hInstance, 0);
end;
Um die Datei hintergrund.res aus einer MP3-Datei zu machen, kannst du dieses Tool von mir nehmen.
Volker
Besucht meine Garage
Aktuell: RtfLabel 1.3d, PrintToFile 1.4
  Mit Zitat antworten Zitat