Begin end.

Если открыть менеджер проектов (Меню View->Project Manager), то в окне вообще не будет видно ни одного модуля. Это потому что код, который мы видели выше относиться к самой библиотеки. Выбери из меню File пункт Save All, и тебе предложат сохранить только один проект и никаких модулей. Я сохранил проект под именем FirsDLLProject. Потом открыл файл проекта FirsDLLProject.dpr с помощью блокнота и увидел тот же самый код.

Теперь давай добавим в нашу библиотеку одну функцию с именем Summ. У этой функции будет два параметра в виде целых чисел, и возвращать она будет сумму этих чисел:

library FirsDLLProject;

uses SysUtils, Classes;

function Summ(X,Y:Integer):Integer; StdCall; begin Result:=X+Y; end;

exports Summ;

{$R *.res}