MCI 调整音量

2019独角兽企业重金招聘Python工程师标准>>>

var
  P: MCI_DGV_SETAUDIO_PARMS;
  P.dwCallback := 0;
  P.dwItem := MCI_DGV_SETAUDIO_VOLUME;
  P.dwValue := vol;//要设置的音量
  P.dwOver := 0;
  P.lpstrAlgorithm := nil;
  P.lpstrQuality := nil;
  mciSendCommand(MediaPlayer1.DeviceID, MCI_SETAUDIO,
    MCI_DGV_SETAUDIO_VALUE or MCI_DGV_SETAUDIO_ITEM, Cardinal(@P));

转载于:https://my.oschina.net/jingshishengxu/blog/10698