siehe mein post /edit .m0 hat geschrieben: Meine hat Version 0.4.6.1
wo hast du die 0.4.6.1 her?
Code: Alles auswählen
Prototype.l FMOD_Memory_Initialize(poolmem.l, poollen.l, useralloc.l, userrealloc.l, userfree.l)
Prototype.l FMOD_Memory_GetStats(*currentalloced, *maxalloced)
Prototype.l FMOD_Debug_SetLevel(Level.l)
Prototype.l FMOD_Debug_GetLevel(*level)
Prototype.l FMOD_File_SetDiskBusy(busy.l)
Prototype.l FMOD_File_GetDiskBusy(*busy)
Prototype.l FMOD_System_Create(*System)
Global FMOD_Memory_Initialize.FMOD_Memory_Initialize
Global FMOD_Memory_GetStats.FMOD_Memory_GetStats
Global FMOD_Debug_SetLevel.FMOD_Debug_SetLevel
Global FMOD_Debug_GetLevel.FMOD_Debug_GetLevel
Global FMOD_File_SetDiskBusy.FMOD_File_SetDiskBusy
Global FMOD_File_GetDiskBusy.FMOD_File_GetDiskBusy
Global FMOD_System_Create.FMOD_System_Create
Procedure Init_FMOD(DeInit.l = #False) ;#False initialisiert und #True deinitialisiert die Library
Static fmodLib.l
If DeInit And IsLibrary(fmodLib)
CloseLibrary(fmodLib)
EndIf
fmodLib = OpenLibrary(#PB_Any, "fmodex.dll")
If IsLibrary(fmodLib)
FMOD_Memory_Initialize = GetFunction(fmodLib, "FMOD_Memory_Initialize")
FMOD_Memory_GetStats = GetFunction(fmodLib, "FMOD_Memory_GetStats")
FMOD_Debug_SetLevel = GetFunction(fmodLib, "FMOD_Debug_SetLevel")
FMOD_Debug_GetLevel = GetFunction(fmodLib, "FMOD_Debug_GetLevel")
FMOD_File_SetDiskBusy = GetFunction(fmodLib, "FMOD_File_SetDiskBusy")
FMOD_File_GetDiskBusy = GetFunction(fmodLib, "FMOD_File_GetDiskBusy")
FMOD_System_Create = GetFunction(fmodLib, "FMOD_System_Create")
ProcedureReturn #True
EndIf
EndProcedure
Procedure DeInit_FMOD() ;Deinitialisiert die Library
Init_FMOD(#True)
EndProcedure
Init_FMOD()
FMOD_System_Create(@System.l)
Debug System
DeInit_FMOD()