这两个参数也都是可以 Get(waveOutGetPlaybackRate、waveOutGetPitch)

设备默认的播放速度是 $00010000, 此值乘以 2 是快一倍, 除以 2 是慢一倍; 最快可到 $000F8000.
设备默认的音高参数是 $00010000, 此值乘以 2 是高一倍, 除以 2 是低一倍; 最高可到 $000F8000.

可能有很多声卡不支持, 我的 IBM 手提就不支持; 不过通过其他技术可以实现的.

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ComCtrls;typeTForm1 = class(TForm)Button1: TButton;Button2: TButton;Button3: TButton;Button4: TButton;TrackBar1: TTrackBar;Button5: TButton;procedure FormCreate(Sender: TObject);procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button3Click(Sender: TObject);procedure Button4Click(Sender: TObject);procedure Button5Click(Sender: TObject);procedure TrackBar1Change(Sender: TObject);procedure FormDestroy(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}uses MMSystem;function GetWaveFmtData(path: string; var fmt: TWaveFormatEx; var buf: TBytes): Boolean;
varhFile: HMMIO;ckiRIFF,ckiFmt,ckiData: TMMCKInfo;
beginResult := False;hFile := mmioOpen(PChar(path), nil, MMIO_READ);if hFile = 0 then Exit;ZeroMemory(@ckiRIFF, SizeOf(TMMCKInfo));ZeroMemory(@ckiFmt, SizeOf(TMMCKInfo));ZeroMemory(@ckiData, SizeOf(TMMCKInfo));ckiRIFF.fccType := mmioStringToFOURCC('WAVE', 0);ckiFmt.ckid := mmioStringToFOURCC('fmt', 0);ckiData.ckid := mmioStringToFOURCC('data', 0);ZeroMemory(@fmt, SizeOf(TWaveFormatEx));mmioDescend(hFile, @ckiRIFF, nil, MMIO_FINDRIFF);if (ckiRIFF.ckid = FOURCC_RIFF) and (ckiRIFF.fccType = mmioStringToFOURCC('WAVE',0)) and(mmioDescend(hFile, @ckiFmt, @ckiRIFF, MMIO_FINDCHUNK) = MMSYSERR_NOERROR) and(mmioRead(hFile, @fmt, ckiFmt.cksize) = ckiFmt.cksize) and(mmioAscend(hFile, @ckiFmt, 0) = MMSYSERR_NOERROR) and(mmioDescend(hFile, @ckiData, @ckiRIFF, MMIO_FINDCHUNK) = MMSYSERR_NOERROR) thenbeginSetLength(buf, ckiData.cksize);Result := (mmioRead(hFile, PAnsiChar(buf), ckiData.cksize) = ckiData.cksize);end;mmioClose(hFile, 0);
end;//------------------------------------------------------------------------------
varwh: TWaveHdr;hWaveOut: HWAVE;fmt: TWaveFormatEx;buf: TBytes;procedure TForm1.FormCreate(Sender: TObject);
beginButton1.Caption := '打开并播放';Button2.Caption := '暂停';Button3.Caption := '继续';TrackBar1.Min := -4;TrackBar1.Max := 4;TrackBar1.Position := 0;
end;procedure WaveProc(hWave: HWAVE; uMsg, dwInstance, dwParam1, dwParam2: DWORD); stdcall;
begincase uMsg ofMM_WOM_DONE: waveOutUnprepareHeader(hWave, PWaveHdr(dwParam1), SizeOf(TWaveHdr));end;
end;procedure TForm1.Button1Click(Sender: TObject);
constpath = 'C:\WINDOWS\Media\Windows XP 启动.wav';
varvolume: DWORD;
beginGetWaveFmtData(path, fmt, buf);wh.lpData := PAnsiChar(buf);wh.dwBufferLength := Length(buf);wh.dwBytesRecorded := 0;wh.dwUser := 0;wh.dwFlags := WHDR_BEGINLOOP or WHDR_ENDLOOP;wh.dwLoops := 3;wh.lpNext := nil;wh.reserved := 0;waveOutOpen(@hWaveOut, WAVE_MAPPER, @fmt, DWORD(@WaveProc), 0, CALLBACK_FUNCTION);waveOutPrepareHeader(hWaveOut, @wh, SizeOf(TWaveHdr));waveOutWrite(hWaveOut, @wh, SizeOf(TWaveHdr));
end;//暂停
procedure TForm1.Button2Click(Sender: TObject);
beginwaveOutPause(hWaveOut);
end;//继续
procedure TForm1.Button3Click(Sender: TObject);
beginwaveOutRestart(hWaveOut);
end;//调整播放速度
procedure TForm1.TrackBar1Change(Sender: TObject);
constmid = $00010000;
varpos, rate: Integer;
beginpos := TTrackBar(Sender).Position;if pos > 0 thenrate := mid shl poselserate := mid shr Abs(pos);waveOutSetPlaybackRate(hWaveOut, rate);Text := IntToStr(pos);
end;//判断设备是否支持播放速度调整
procedure TForm1.Button4Click(Sender: TObject);
varwaveOutCaps: TWaveOutCaps;
beginwaveOutGetDevCaps(WAVE_MAPPER, @waveOutCaps, SizeOf(TWaveOutCaps));if waveOutCaps.dwSupport and WAVECAPS_PLAYBACKRATE = WAVECAPS_PLAYBACKRATE thenShowMessage('默认设备支持播放速度调整.')elseShowMessage('默认设备不支持播放速度调整!');
end;//判断设备是否支持声调变化
procedure TForm1.Button5Click(Sender: TObject);
varwaveOutCaps: TWaveOutCaps;
beginwaveOutGetDevCaps(WAVE_MAPPER, @waveOutCaps, SizeOf(TWaveOutCaps));if waveOutCaps.dwSupport and WAVECAPS_PITCH = WAVECAPS_PITCH thenShowMessage('默认设备支持声调变化.')elseShowMessage('默认设备不支持声调变化!');
end;procedure TForm1.FormDestroy(Sender: TObject);
beginif hWaveOut <> 0 then waveOutClose(hWaveOut);
end;end.

窗体文件:

object Form1: TForm1Left = 0Top = 0Caption = 'Form1'ClientHeight = 204ClientWidth = 342Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = 'Tahoma'Font.Style = []OldCreateOrder = FalseOnCreate = FormCreateOnDestroy = FormDestroyPixelsPerInch = 96TextHeight = 13object Button1: TButtonLeft = 32Top = 24Width = 75Height = 25Caption = #25171#24320#24182#25773#25918TabOrder = 0OnClick = Button1Clickendobject Button2: TButtonLeft = 136Top = 24Width = 75Height = 25Caption = #26242#20572TabOrder = 1OnClick = Button2Clickendobject Button3: TButtonLeft = 240Top = 24Width = 75Height = 25Caption = #32487#32493TabOrder = 2OnClick = Button3Clickendobject TrackBar1: TTrackBarLeft = 32Top = 88Width = 283Height = 45TabOrder = 3OnChange = TrackBar1Changeendobject Button4: TButtonLeft = 152Top = 139Width = 163Height = 25Caption = #21028#26029#35774#22791#26159#21542#25903#25345#36895#24230#35843#25972TabOrder = 4OnClick = Button4Clickendobject Button5: TButtonLeft = 152Top = 170Width = 163Height = 25Caption = #21028#26029#35774#22791#26159#21542#25903#25345#22768#35843#21464#21270TabOrder = 5OnClick = Button5Clickend
end