pascalabcnet/InstallerSamples/!MainFeatures/04_Units/NativeDll/CallNative.pas

7 lines
253 B
ObjectPascal

// Вызов функции из обычной dll
function add(a,b: integer): integer; external 'NativeDll.dll' name 'add'; // объявление внешней функции
begin // основная программа
writeln(add(2,3));
end.