Простой пример DLL

Written on 26 Октября 2007. Posted in [Delphi] Работа с DLL

library MyDll;

uses

Windows;

function SomeFunc(I: Integer): Integer; stdcall;

begin

if Odd(I) then Result := 3 * I + 1

else Result := I div 2;

end;

exports

SomeFunc;

begin

end.

И вот модуль импорта, который вы можете включить в любой проект, которому необходим доступ к функциям DLL:

unit MyDllImport;

interface

uses

Windows;

function SomeFunc(I: Integer): Integer; stdcall;

implementation

function SomeFunc; external 'mydll.dll';

end.