Sound "Mixer" VB -> DLLcall

[AUGE_OHR]

hi,


wer kann mir bei der "übersetzung" des VB helfen:

Code: Alles auswählen

Private Declare Function mixerClose& Lib "winmm.dll" (ByVal hmx&)

Private Declare Function mixerGetControlDetails& Lib "winmm.dll" Alias "mixerGetControlDetailsA" (ByVal hmxobj&, pmxcd As MIXERCONTROLDETAILS, ByVal fdwDetails&)

Private Declare Function mixerGetDevCaps& Lib "winmm.dll" Alias "mixerGetDevCapsA" (ByVal uMxId&, ByVal pmxcaps As MIXERCAPS, ByVal cbmxcaps&)

Private Declare Function mixerGetID& Lib "winmm.dll" (ByVal hmxobj&, pumxID&, ByVal fdwId&)

Private Declare Function mixerGetLineControls& Lib "winmm.dll" Alias "mixerGetLineControlsA" (ByVal hmxobj&, pmxlc As MIXERLINECONTROLS, ByVal fdwControls&)

Private Declare Function mixerGetLineInfo& Lib "winmm.dll" Alias "mixerGetLineInfoA" (ByVal hmxobj&, pmxl As MIXERLINE, ByVal fdwInfo&)

Private Declare Function mixerGetNumDevs& Lib "winmm.dll" ()

Private Declare Function mixerMessage& Lib "winmm.dll" (ByVal hmx&, ByVal uMsg&, ByVal dwParam1&, ByVal dwParam2&)

Private Declare Function mixerOpen& Lib "winmm.dll" (phmx&, ByVal uMxId&, ByVal dwCallback&, ByVal dwInstance&, ByVal fdwOpen&)

Private Declare Function mixerSetControlDetails& Lib "winmm.dll" (ByVal hmxobj&, pmxcd As MIXERCONTROLDETAILS, ByVal fdwDetails&)

gruss by OHR
Jimmy

[andreas]

Hallo Jimmy,

eigentlich ist es leicht, aber ich kann dir nicht sagen, was über das &-Zeichen bedeutet.
Hier ein Beispiel:

Code: Alles auswählen

DLLFUNCTION mixerClose( hmx )  USING STDCALL FROM winmm.dll

So könntest du zumindest probieren.