ACM 控件 delphi 的应用？(100分)

ACMDialog,ACMWaveIn ,ACMWaveOut
不使用控件ACMDialog，如何设置
acmwavein.open()的参数

打开后，设置文件头的信息。。。

我是这样用的
var
format: pWaveFormatEx;
begin
getMem(format,SizeOf(tWaveFormatEx));
format^.wFormatTag := 49;
format^.nChannels := 1;
format^.nSamplesPerSec := 8000;
format^.nAvgBytesPerSec := 1625;
format^.nBlockAlign := 1;
format^.wBitsPerSample := 8;
ACMWaveIn1.Open(format);
end;

这样出现打开是出错？望指教！

GetMem(FWaveFormat, FMaxFmtSize);
if FWaveFormat = nil then begin
ierrormsg('Error allocating local memory for WaveFormatEx structure.');
Result := -2;
Exit;
end;

// initialize the format to standard PCM...
FillChar(FWaveFormat^, FMaxFmtSize, 0);
FWaveFormat.wFormatTag := WAVE_FORMAT_PCM;
FWaveFormat.nChannels := 1;
FWaveFormat.nSamplesPerSec := 11025;
FWaveFormat.nAvgBytesPerSec := 11025;
FWaveFormat.nBlockAlign := 1;
FWaveFormat.wBitsPerSample := 8;
FWaveFormat.cbSize := 0;

接受答案了.