как можно инициализировать Allegro в пурике?

функция allegro_init() не работает

int install_allegro(int system_id, int *errno_ptr, int (*atexit_ptr)())  данная функция тоже не работает

кто знает как правильно ее инициализировать

я пробовал вот так:

Procedure Init_Allegro()
  allegroLib = OpenLibrary(#PB_Any, "I:\Projects\Alleg42.dll")
  ProcedureReturn IsLibrary(allegroLib)
EndProcedure

Procedure.w  Install_Allegro(system_id.w, *errno_ptr.w,*atexit_ptr.w)
  ProcedureReturn CallFunction(allegroLib, "install_allegro",system_id.w, *errno_ptr.w, *atexit_ptr.w)
EndProcedure

если вызывать install_allegro(0, @errno,atexit)
не работает.. возвращает 0. подскажите, где у меня ошибка..
спасибо!

Отредактировано Yevgeny_1978 (14.02.2012 11:58:35)