Mit Windows.Beep Lied Spielen

[Marco Haffner]

Ist schon ein bisschen älter, aber es funktioniert noch immer.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  Noten = 29;
  VIERTEL = 250;
  HALBE = 500;
type
  TAlleMeineEntchen = array[0..1, 0..Noten] of Integer;
const
  AlleMeineEntchen : TAlleMeineEntchen = ((523, 587, 659, 698, 783, 783, 880,
    880, 880, 880, 783, 32, 880, 880, 880, 880, 32, 782, 698, 698, 698, 698,
    649, 649, 783, 783, 783, 783, 523, 32),
   (VIERTEL, VIERTEL, VIERTEL, VIERTEL, HALBE, HALBE, VIERTEL, VIERTEL, VIERTEL,
    VIERTEL, HALBE, VIERTEL, VIERTEL, VIERTEL, VIERTEL, VIERTEL, VIERTEL, HALBE,
    VIERTEL, VIERTEL, VIERTEL, VIERTEL, HALBE, HALBE, VIERTEL, VIERTEL, VIERTEL,
    VIERTEL, HALBE, VIERTEL));
var
  I: Integer;
begin
  for I := 0 to Noten do
    Windows.Beep(AlleMeineEntchen[0, I], AlleMeineEntchen[1, I]);
end;