Вот написал работает.
Код DLLки:
Код:
Library MyDLL;
Uses
SysUtils, Dialogs;
Procedure MyProcedure(N: Integer);
begin
ShowMessage(IntToStr(N));
end;
Exports
MyProcedure;
begin
end.
Код Программы:
Код:
Procedure MyProcedure(N: Integer);
external 'MyDLL.dll' name 'MyProcedure';
procedure TForm1.Button1Click(Sender: TObject);
begin
MyProcedure(56);
end; |