Einzelnen Beitrag anzeigen

Benutzerbild von ManuMF
ManuMF

Registriert seit: 11. Jul 2005
1.016 Beiträge
 
Delphi 6 Personal
 
#3

Re: Beep solange Bedinngung erfüllt

  Alt 4. Jan 2006, 16:52
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
Gruß,
ManuMF

Endlich hab ich was Positives an Vista entdeckt: Das mitgelieferte Mahjongg
  Mit Zitat antworten Zitat