diff --git a/harbour/source/rtl/tone.c b/harbour/source/rtl/tone.c index c074aae41f..e55451b18d 100644 --- a/harbour/source/rtl/tone.c +++ b/harbour/source/rtl/tone.c @@ -61,6 +61,10 @@ #include #include #elif defined(_Windows) + #if defined(_MSC_VER) + #define HB_OS_WIN_32_USED + #include "hbdefs.h" + #endif #elif defined(__MINGW32__) #include #elif defined(__BORLANDC__) @@ -155,6 +159,11 @@ void hb_tone( double dFrequency, double dDuration ) both parameters and either generates the default sound event or the standard system beep. */ Beep( ( ULONG ) dFrequency, temp ); +#elif defined(_Windows) && ! defined(__BORLANDC__) + /* Bad news for non-NT Windows platforms: Beep() ignores + both parameters and either generates the default sound + event or the standard system beep. */ + Beep( ( ULONG ) dFrequency, temp ); #elif defined(__DJGPP__) || ( defined(__BORLANDC__) && ! defined(_Windows) ) || defined(__WATCOMC__) /* Note: delay() in for DJGPP does not work and delay() in for BORLANDC is not multi-