Mega Code Archive
Static linking of DLL
<![CDATA[
Title: Static linking of DLL
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;
]]>