dll$ = OpenFileRequester("Selectionnez une DLL", "D:\Projets\ALib\DLL\", "*.dll", 0)


If OpenLibrary(1, dll$) = 0
  End
EndIf

OpenWindow(1, 0, 0, 640, 480, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered, "DLLView par Aranoth-ND")
CreateGadgetList(WindowID(1))

ListViewGadget(1, 0, 0, 640, 480)

AddGadgetItem(1, - 1, "-----------------------------------------------")
AddGadgetItem(1, - 1, "Nom de la DLL: " + dll$)
AddGadgetItem(1, - 1, "Nbr de fonctions: " + Str(CountLibraryFunctions(1)))
AddGadgetItem(1, - 1, "-----------------------------------------------")

ExamineLibraryFunctions(1)

While NextLibraryFunction()

  AddGadgetItem(1, - 1, LibraryFunctionName()) ;+"  @  "+Str(LibraryFunctionAddress()))

Wend


Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
  CloseLibrary(1)
  End