[fpc-pascal]Yet another bug in Win32 CRT unit

[Marco van de Voort]

> >Try this program under Borland Pascal and under Free Pascal 1.04
> >
> >uses CRT;
> >begin
> >   sound(1000);
> >   delay(1000);
> >   sound(500);
> >   delay(1000);
> >   nosound;
> >end.
> This is a known missing feature.
> (The RTL source only uses MessageBeep(0) call)
> 
>    You are very welcome to propose a
> patch for adding support for this feautre, but
> don't forget tat there are still 
> (even if it becomes very rare)
> win32 systems that don't have any sound systems
> Moreover, I suspect that 
> that code will need to be different for win9X/Me
> and for winNT/2000/XP....

One can't use the sound system anyway, since it might be locked by another app.