Сайт для студентов, школьников, преподавателей, программистов и математиков. Здесь можно online решить задачу, пройти
тесты, найти решение или программу, получить помощь. Можно добавить задачу, программу, статью.
type TAddIntegers=function(p1,p2:integer):integer; stdcall; {тип функции}
type TForm1 = class(TForm) Button1: TButton;
procedure Button1Click(Sender: TObject); private Summ: TAddIntegers; {задание типа функции} {Private declarations} public {Public declarations} end;
var Form1: TForm1; implementation {$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); var h:integer; Handle:LongWord; begin {загрузка библиотеки} Handle:=LoadLibrary('TwoDLLProject.dll'); if (Handle=0) then begin ShowMessage('Библ.TwoDLLProject.dll не найдена'); Halt; end; {получение указателя на функцию} @Summ:=GetProcAddress(Handle,'Summ'); h:=Summ(12,20); {вызов функции} ShowMessage(IntToStr(h)); {вывод рез-та} FreeLibrary(Handle); {выгрузка библиотеки} end;
Вход
