library MyDll;
uses Windows;
function SomeFunc(I: Integer): Integer; stdcall;
beginif Odd(I) then
Result := 3 * I + 1
else
Result := I div 2;
end;
exports
SomeFunc;
beginend.
И вот модуль импорта, который вы можете включить в любой проект, которому
необходим доступ к функциям DLL:
unit MyDllImport;
interfaceuses Windows;
function SomeFunc(I: Integer): Integer; stdcall;
implementationfunction SomeFunc; external "mydll.dll";
end.
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Простой пример DLL", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!