LineGetID和WaveOutOpen错误.帮忙翻译一段C代码(100分)

//获取线路设备ID,是C代码改造的:
//xWaveDevice=(DWORD) * ((DWORD *) ((LPSTR)vs + vs->dwStringOffset) ); //不知道怎样翻译成Delphi的
xWaveDevice:=dWord( dWord( LPSTR(xVarString) + xVarString.dwStringOffset) );
.................

//查询是否可用
WaveOutOpen(0,xWaveDevice,WaveFormat,0,0,Wave_Format_Query); //格式查询
..........
此处返回错误代码:设备不能用. MMSYSERR_BADDEVICEID
我用的Modem是不能正常判断Connected消息的那种.

各位高手谁遇到这样的问题?怎么解决?