Код:
ProcedureDLL Plus(a, b)
ProcedureReturn a+b
EndProcedure
ProcedureDLL Message(Title.s, Message.s)
MessageRequester(Title, Message)
EndProcedure
В этом примере две процедуры. Первая просто складывает числа из
переменных
Код:
If OpenLibrary(1, "MyDLL.dll")=0 ; Открываем динамическую библиотеку подпрограмм
MessageRequester("", "Отсутствует файл MyDLL.dll")
End ; Завершение работы программы
EndIf
a=10 ; Запись данных в переменные
b=20
Result=CallCFunction(1, "Plus", a, b) ; Вызов функции Plus
String.s="a+b="+Str(Result)
CallCFunction(1, "Message", @"Сообщение", @String) ; Вызов функции Message
CloseLibrary(1) ; Закрытие динамической библиотеки подпрограмм
Функция