Вызов функций DLL
После завершения компиляции сохраните проект и выполните команду File д New Application. Сейчас мы напишем простейшую тестовую программу для вызова DLL.
Поместите кнопку форму и создайте обработчик событий, который должен выглядеть так:
procedure TForm1.Button1Click(Sender: TObject);
begin
BeepMe;
end;
Включите BeepDLL в список, следующий за ключевым словом uses в модуле формы. Не пытайтесь компилировать программу, сначала нужно создать файл BEEPDLL.PAS.
Создайте новый модуль с именем BEEPDLL.PAS и введите содержимое листинга 2.2.