Dll Aufruf übersetzen

[ebber]

Hallo

ich habe hier etwas was ich mit Delphi machen will.
Es ist um eine Dll Funktion aufzurufen.

Das hatte ich so umgeformt und das geht.

Delphi-Quellcode:

dpSetDevMonitorAtten(
   int    iDeviceNum,
   DWORD  dwChannelID,
   int    iNewVolume
);


procedure dpSetDevMonitorAtten(iDeviceNum:integer; dwChannelID:Dword; iNewVolume:integer);
stdcall; external 'DELTAPNL.DLL';

Das ist nur um etwas zu Setten aber das hier soll nun einen Wert zurückgeben.

Delphi-Quellcode:

dpGetDevMonitorAtten(
   int    iDeviceNum,
   DWORD  dwChannelID,
   int   *piVolume
);

Ich habe das jetzt so probiert, aber das geht nicht.

Delphi-Quellcode:

function dpGetDevMonitorAtten(iDeviceNum:integer; dwChannelID:Dword; piVolume:Integer):dword;
stdcall; external 'DELTAPNL.DLL';

Hat vermztlich was mit dem *pivolume zu tun ?

MfG