SetMPVolume+Winmm.dll-Fehler

[Pitch-Bull]

Ich habe aus dp folgenden Code benutzt:

Delphi-Quellcode:

1
 const 
  MCI_SETAUDIO = $0873; 
  MCI_DGV_SETAUDIO_VOLUME = $4002; 
  MCI_DGV_SETAUDIO_ITEM = $00800000; 
  MCI_DGV_SETAUDIO_VALUE = $01000000; 

type 
  MCI_DGV_SETAUDIO_PARMS = record 
    dwCallback: DWORD; 
    dwItem: DWORD; 
    dwValue: DWORD; 
    dwOver: DWORD; 
    lpstrAlgorithm: PChar; 
    lpstrQuality: PChar; 
  end; 

[...] 
procedure TForm1.SetMPVolume(MP: TMediaPlayer; Volume: Integer); 
var 
  p: MCI_DGV_SETAUDIO_PARMS; 
begin 
  p.dwCallback := 0; 
  p.dwItem := MCI_DGV_SETAUDIO_VOLUME; 
  p.dwValue := Volume; 
  p.dwOver := 0; 
  p.lpstrAlgorithm := nil; 
  p.lpstrQuality := nil; 
  mciSendCommand(MP.DeviceID, MCI_SETAUDIO, 
    MCI_DGV_SETAUDIO_VALUE or MCI_DGV_SETAUDIO_ITEM, Cardinal(@p)); 
end

Jedoch bekomme ich jedesmal einen Fehler, beim OnChange Ereignis (Trackbar), der durch die winnmm.dll verursacht wird.
Hat einer rat?