Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Beep solange Bedinngung erfüllt

    Delphi
    by ManuMF, 4. Jan 2006
  Mein Beispiel ist für eine WAVE-Datei. In einem Timer (besser für die CPU ;-) ) wird geprüft. Interval sollte 100ms sein.
  
  
  uses MMSystem;
  
  procedure TForm.ButtonClick(Sender: TObject);
  begin
  PlaySound('Sounddateiname.wav', 0, SND_ASYNC or SND_FILENAME or SND_LOOP);
  Timer.Enabled := true;
  end;