DLL Dynamic Link Library

память только одну копию кода и ресурсов - модуль приложения,

создавая несколько отдельных сегментов данных, стека и очереди сообщений, каждый набор которых представляет из себя задачу, в понимании Windows.

приложения.
DLL - библиотека также является модулем. Она находится в памяти

в единственном экземпляре и содержит сегмент кода и ресурсы, а также сегмент данных

стека, ни очереди сообщений. Функции, помещенные в DLL, выполняются в

контексте вызвавшего приложения, пользуясь его стеком. Но эти же функции используют сегмент данных, принадлежащий библиотеке, а не копии приложения

Экономия памяти достигается за счет того, что все запущенные приложения используют один модуль DLL, не включая те или иные стандартные функции в состав своих модулей.

используют один модуль DLL, не включая те или иные стандартные

функции в состав своих модулей.

*.RES}
exports
begin
end.

Func4 index 11,//Ошибка, такой индекс уже существует
Func5 name 'Don';
Объявлять

можно и так:
exports Func1 index 10 name 'Fun',
exports Func2 Insert,
exports Func3 index 11
Резидентные
exports
ExportByName name 'MYEXPORTPROC' resident;

импортируемые из DLL таким образом:
procedure ImportByName;external 'MYDLL' name 'MYEXPORTPROC';
procedure

ImportByOrdinal; external 'MYDLL' index 10;
procedure MyExportFunc1; external 'MYDLL';
Этот способ называется статическим импортом.

функции подгружаемый из библиотеки;
var
Handle : THandle; - указатель на

библиотеку
MyImportProc : TMyProc; - подгружаемая функция
begin
Handle:=LoadLibrary('MYDLL');-динамическая загрузка DLL
@MyImportProc:=GetProcAddress(Handle,'MYEXPORTPROC');
Получение адреса точки входа нужной функции
FreeLibrary(Handle); - Освобождение ресурса
end;

ключа {$R *.DFM}:
procedure ShowAbout(Handle: THandle);
begin
//Установить указатель на приложение

Application.Handle := Handle;
//Создать форму
Form1:= TForm1.Create(Application);
//Отобразить
Form1.ShowModal;
//Очистить
Form1.Free;
end;

Controls,
Forms, Dialogs, StdCtrls;
procedure ShowAbout(Handle: THandle)stdcall;
type
TForm1 = class(TForm)

Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
procedure ShowAbout;external 'ProjectDLL.dll' index 10;
implementation

для неё следующее событие:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowAbout(Handle);
end;

TForm); begin
MessageBox(AForm.Handle, Hello world!', DLL Message Box', MB_OK or

MB_ICONEXCLAMATION);
end;
exports HelloWorld;
begin
end.