Вызов функций DLL


После завершения компиляции сохраните проект и выполните команду File д New Application. Сейчас мы напишем простейшую тестовую программу для вызова DLL.

Поместите кнопку форму и создайте обработчик событий, который должен выглядеть так:

procedure TForm1.Button1Click(Sender: TObject);
begin
BeepMe;
end;

Включите BeepDLL в список, следующий за ключевым словом uses в модуле формы. Не пытайтесь компилировать программу, сначала нужно создать файл BEEPDLL.PAS.

Создайте новый модуль с именем BEEPDLL.PAS и введите содержимое листинга 2.2.



Содержание раздела