Static linking of DLL

Joomla
Joomla

This example shows, how to create a function, which is started from dll. This is a static linking of dll.

/*  Code of the library */
library MyDLL1;

uses
  SysUtils,
  Classes;

function Max(i,j: Integer): Integer; export;
begin
  if i>=j then Result:=i
          else Result:=j;
end;

exports
  Max(i,j:Integer): Integer name 'MAX';

begin
end.


/* Code of the unit */
function Max(i,j: Integer): Integer;external 'MyDLL1' name 'MAX';

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text:=IntToStr(Max(5, 10));
end;

Joomla
Joomla