autsch, "beep" ist so kurz, da kann ich nicht mithalten. Das hier ist zwar um ein vielfaches länger, geht aber auch :
Delphi-Quellcode:
PROCEDURE WaveAbspielen (DateiName : string);
VAR flag : byte;
BEGIN
flag:=SND_ASYNC;
sndPlaySound(PChar (DateiName), Flag);
END;