Schleife

[DeddyH]

Oder einfach so (wenn Bitmasken addiert werden, bekomme ich immer den großen grünen Arkl-Anfall):

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    FPlaying: Boolean;
  public
    { Public-Deklarationen }
  end;

...

uses MMSystem;

procedure TForm1.Button1Click(Sender: TObject);
const
  Dateiname = 'Pressluft-2.wav';
var
  Soundfile: PChar;
  Flags: Cardinal;
begin
  FPlaying := not FPlaying;
  if FPlaying then
    begin
      SoundFile := PChar(ExtractFilePath(ParamStr(0)) + Dateiname);
      Flags := SND_ASYNC or SND_LOOP;
    end
  else
    begin
      SoundFile := nil;
      Flags := 0;
    end;
  PlaySound(SoundFile, 0, Flags);
end;