delphi 多媒体wave文件CD音频|笨鱼技术网

Simply use that trick to made your rippers/grabers:

(don't know if it work on NT / 2000)

Downloadhttp://files1.sonicspot.com/alternatecdfsvxd/cdfs.zip the substitutive FSCD.VXD from the Net and substitute to your original located in
\Windows\System\IOSubSys directory.

I suppose it needs a reboot.

In your program, in the "Grab" button just put in the function that calculates the location of the file and makes a copy of it.

( probabily this will not work, but it demonstrates how to make)

procedure TfrmMain.cmdGrabClick(Sender: TObject);
var
mHz: string;
mBr: string;
mStereo: string;
mTrack: string;
mFile: string;
begin
case rgHz.ItemIndex of
    0: mHz := '11025kHz';
    1: mHz := '22050kHz';
    2: mHz := '44100kHz';
else
    mHz := '48000kHz';
end;
if (rgBr.ItemIndex = 0) then
    mBr := '8bit'
else
    mBr := '16bit';
if (chkStereo.Cheched) then
    mStereo := 'Stereo'
else
    mStereo := 'Mono';
mTrack := 'Track ' + cboTrack.Text + '.wav';

mFile := cboDrive.Text + ':\' + mStereo + '\' + mHz + '\' + mBr + '\' + mTrack;
// Copy now the file in mFile.

end;