[Lazarus] How to produce a tone at Tone frequency for duration MSecs (milliseconds)

Peter E Williams foss.game.pascal.developer at iinet.net.au
Wed Sep 1 11:45:02 CEST 2010

Hi All,

I am looking for a simple sound beeping component which will produce a
tone through the default sound system e.g. a Tone at frequency (in
Hertz) for duration MSecs (milliseconds).

It will replace the TbtBeeper (Delphi 5) component which mainly consists
of the following procedure:

procedure TbtBeeper.BeepFor(Tone: Word; MSecs: DWORD);	

e.g. BeepFor( 100, 500 );
// beep at 100 Hertz for half a second.

Best Regards,
Hobart, Tasmania, Australia

Proudly developing Quality Cross Platform Open Source Games
Since 1970 with a Commodore PET 4016 with 16 KRAM
http://pews-freeware-games.org (<--- brand new)

More information about the Lazarus mailing list