Mein PC Beep't nicht mehr...

[Helmi]

Hallo,

also folgende zwei Beep´er werden über die Soundkarte ausgegeben bei Win7 32bit.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Winapi.Windows.Beep(500, 200);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Beep;
end;