HEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\Media 下有声卡的型号
所以只需要读出注册表就行了
var reg:Treginifile;
s:string;
begin
reg:=treginifile.create('');
reg.rootkey:=HEY_LOCAL_MACHINE;
s:=get.readstring('System\CurrentControlSet\Services\Class\Media\0000  ',
'DriverDesc','');\\字符串s中就是声卡的型号
reg.close;
end;