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?

[Zacherl]

Wie lautet denn der Fehler?

Florian

[Pitch-Bull]

wenn ich das so genau wüsste. Ich sitze hier nicht an meinem Rechner. Leider. Jedenfalls
sthet nur da, das ein Fehler bezüglich der Winmm.dll aufgetreten ist.

Genaueres steht da net.

Kennst du dich damit aus?