program Example;
{$APPTYPE CONSOLE}
{ Указываем, что функция находится в DLL }
function AddNumbers(a, b: Double): Double; cdecl; external 'Example.dll';
{ Используем функцию как обычно }
var result: Double;
begin
result := AddNumbers(1, 2);
Writeln('The result was: ', result)
end.
Немає коментарів:
Дописати коментар