NextLibraryFunction()
Синтаксис
Result = NextLibraryFunction()
Описание
Переход к следующей библиотечной функции в списке содержимого библиотеки, созданном командой ExamineLibraryFunctions().
Параметры
Ничего.
Возвращаемое значение
Возвращает ненулевое значение, если в данном перечислении за текущей библиотечной функцией была найдена следующая библиотечная функция, в противном случае 0.
Комментарии
Эту функцию можно вызывать только после успешного вызова функции ExamineLibraryFunctions(). Эта функция позволяет программисту шаг за шагом просмотреть каждую библиотечную функцию, и получить нужную информацию, такую как имя и адрес, с помощью команд LibraryFunctionName() и LibraryFunctionAddress() соответственно.
Пример для Windows
Define Num = OpenLibrary(#PB_Any, "user32.dll") ; Открывает библиотеку user32.dll и запоминает сгенерированный Номер в переменную Num If ExamineLibraryFunctions(Num) ; Начинает просмотр содержимого библиотеки While NextLibraryFunction() ; Осуществляет цикл, с пошаговым просмотром каждой функции библиотеки a$=Hex(LibraryFunctionAddress()) b$=LibraryFunctionName() Debug "HEX Адрес: ( " + a$ + " ) -- имя функции: " + b$ ; Печать адресов и имён всех функций библиотеки Wend ; конец цикла EndIf Debug "Всего функций: " + CountLibraryFunctions(Num) ; Выводит общее количество функций библиотеки If IsLibrary(Num) ; Проверка, открыта ли библиотека CloseLibrary(Num) ; Закрытие библиотеки EndIf
См. также
ExamineLibraryFunctions(), LibraryFunctionName(), LibraryFunctionAddress()
Поддерживаемые OS
Windows, Linux