Delphi World - Простой шаблон для Delphi DLL
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Простой шаблон для Delphi DLL

Пример DLL

Без модулей

Во-первых, "скелет" DLL, которую вы хотели, сохраняете как DLLFRAME.DPR:


{---------------------DLLFRAME.DPR--------------------------}
library Dllframe;

uses WinTypes;

function  GetString : string ; export ;
begin

Result := 'Привет из DLL!' ;
end;

exports

GetString;

begin
end.
{-----------------------------------------------------------}

Теперь напишем вызывающую программу и сохраним ее как DLLCALL.DPR:


{---------------------DLLCALL.DPR---------------------------}
program Dllcall;

uses

Dialogs;

{$R *.RES}

function GetString : string ; far ; external 'DLLFRAME' ;

begin

MessageDlg( GetString, mtInformation, [ mbOK ], 0 ) ;
end.
{-----------------------------------------------------------}

С модулями

Код вызывающей программы, сохраните ее как DLLCALL.DPR:


{---------------------DLLCALL.DPR---------------------------}
program Dllcall;

uses

Dialogs;

{$R *.RES}

function GetString : string ; far ; external 'MyDLL' ;
begin
MessageDlg( GetString, mtInformation, [ mbOK ], 0 ) ;
end.
{-----------------------------------------------------------}

"скелет" DLL, которую вы хотели, сохраняете как DLLFRAME.DPR:


{---------------------DLLFRAME.DPR--------------------------}
library Dllframe;

uses DLLUnit;

exports

GetString;

begin
end.
{-----------------------------------------------------------}

Модуль, который мы сохраняем как dllunit.pas:


{---------------------dllunit.pas--------------------------}

unit DLLUnit;
interface

uses WinTypes;

function GetString: string; export;

implementation

function GetString: string;
begin

GetString := 'Привет из DLL!' ;
end ;

begin
end. 
{-----------------------------------------------------------}

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования