Developing.ru

Код: Выделить всё

 program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

Код: Выделить всё

Library Hello; //Library - дает понять компилятору, что мы вроде как ДЛЛ-ку пишем
uses
  Dialogs;

procedure helloworld;//а это и будет та самая наша мегапроцедура.
  begin showmessage('Hello, World!'); end;

  exports //в этом разделе описывается, какие процедуры и функции экспортируются из 
     //этой библиотеки, т.е. какие из них можно будет использовать в программах
  helloworld index 1 name 'helloworld'; {здесь мы сообщаем, что под нумером 1 мы выставляем на публичное юзание процедуру helloworld, и что называться она будет ровно так же. Можно, конечно, выбрать и другое имя, но зачем это нам? Кстати, если экспортируются несколько функций или процедур, они перечисляются через запятую}
begin
end.

Код: Выделить всё

 procedure helloworld;external 'hello.dll'; 

Код: Выделить всё

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

Код: Выделить всё

...
TForm1 = class(TForm)
...
end;

procedure helloworld и так далее