|
Order and save right now!
20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming! |
⤷ 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;
-
More for developers
