home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / sound.swg / 0016_WINSOUND.PAS.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  967 b   |  36 lines
  1. {
  2. Fellow Windows voyeurs,
  3.  
  4. A While ago people were asking how to obtain Sound through
  5. the PC speaker without using the multimedia DLL (or a
  6. speaker driver For that matter.)  Below is a basic example
  7. of how to do this.
  8. }
  9.   Procedure SoundStart;
  10.   Var
  11.     Pitch : Integer;
  12.   begin
  13.   OpenSound;
  14.   For Pitch:= 80 to 84 do
  15.     begin
  16.     SetVoicenote (1, Pitch, 100, 1);
  17.     SetVoiceAccent (1, 15, 255, s_Legato, Pitch);
  18.     end;
  19.   StartSound;
  20.   WaitSoundState (S_QueueEmpty);
  21.   StopSound;
  22.   CloseSound
  23.   end;
  24.  
  25. {
  26. Please reference your Windows API reference manual For
  27. the SetVoicenote() and SetVoiceAccent() synopsys.
  28.  
  29. Microsoft supports the calls in Windows 3.0, however
  30. documentation in 3.1 suggests that it will no longer
  31. support them.  My interpretation is that For the
  32. future these calls will be supported, however will not
  33. be enhanced or Extended.  Their reasoning is probably
  34. based on there drive to sell their multimedia kits.
  35. }
  36.