[Back to SOUND SWAG index] [Back to Main SWAG index] [Original]

    {
    Fellow Windows voyeurs,

    A While ago people were asking how to obtain Sound through
    the PC speaker without using the multimedia DLL (or a
    speaker driver For that matter.)  Below is a basic example
    of how to do this.
    }
      Procedure SoundStart;
      Var
        Pitch : Integer;
      begin
      OpenSound;
      For Pitch:= 80 to 84 do
        begin
        SetVoicenote (1, Pitch, 100, 1);
        SetVoiceAccent (1, 15, 255, s_Legato, Pitch);
        end;
      StartSound;
      WaitSoundState (S_QueueEmpty);
      StopSound;
      CloseSound
      end;

    {
    Please reference your Windows API reference manual For
    the SetVoicenote() and SetVoiceAccent() synopsys.

    Microsoft supports the calls in Windows 3.0, however
    documentation in 3.1 suggests that it will no longer
    support them.  My interpretation is that For the
    future these calls will be supported, however will not
    be enhanced or Extended.  Their reasoning is probably
    based on there drive to sell their multimedia kits.
    }

[Back to SOUND SWAG index] [Back to Main SWAG index] [Original]