...einen Sound ohne TMediaPlayer abspielen?

uses
  MMSystem;

procedure TForm1.Button1.Click;
begin
  PlaySound('c:\Doggie.wav', 0, SND_FILENAME + SND_ASYNC);
end;


{

  Different modes:
  Verschiedene modi:

 SND_ASYNC : Start playing, and don't wait to return
             Sound wird im Hintergrund abgespielt.

 SND_SYNC  : Start playing, and wait for the sound to finish
             Das Programm fährt erst dann fort, wenn der
             Sound fertig abgespielt worden ist. }

// SND_LOOP:

PlaySound('BELLS.WAV', 0, SND_LOOP + SND_ASYNC);


{Keep looping the sound until another sound is played or
PlaySound(nil, 0, 0) is called. }

{Der Sound läuft in einer Schleife so lange, bis
PlaySound(nil, 0, 0) kommt oder eine neue Datei abgespielt wird.}

printed from
www.swissdelphicenter.ch
developers knowledge base