Beep solange Bedinngung erfüllt

[hirnstroem]

Hi Folks,

gibt es unter Delphi eine Möglichkeit einen Piepton genau solange auszugeben, wie eine bestimmte Bedinngung erfüllt ist oder ein Beep zu unterbrechen sobald eine andere Bedinngung greift?

Danke und Gruss
hirnstroem

[droppi]

wenn der piepton nicht durchgängig sein soll versuchs mal mit

Delphi-Quellcode:

while bedingung do beep;

oder versuchs mit

Delphi-Quellcode:

windows.beep();

[ManuMF]

Mein Beispiel ist für eine WAVE-Datei. In einem Timer (besser für die CPU ;-) ) wird geprüft. Interval sollte 100ms sein.

Delphi-Quellcode:

uses MMSystem;

procedure TForm.ButtonClick(Sender: TObject);
begin
  PlaySound('Sounddateiname.wav', 0, SND_ASYNC or SND_FILENAME or SND_LOOP);
  Timer.Enabled := true;
end;

procedure TForm.TimerTimer(Sender: TObject);
begin
  if (NegativeBdingung) or not (PositiveBedingung) then // je nach belieben eines wählen
  begin
    Timer.Enabled := false;
    PlaySound(nil, 0, nil);
  end;
end;

Gruß,
ManuMF