como criar e usar uma dll ( delphi )

1-criar dll no delphi.
em file > new > other > dll wizard > ok.
salvar e compilar pra gerar a dll funcoes.dll

library funcoes;

uses
  Dialogs;

procedure rtnexibir_msg(parmsg: string); export;
begin
  showmessage(parmsg);
end;

exports rtnexibir_msg; // funcao exports para acessar a rotina

begin
end.


 
2-usar a dll no seu programa

 
Unit Unit1;

Interface

uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, Buttons;

type
TForm1 = class(TForm)
procedure FormClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Var
Form1: TForm1;

Implementation

{ declarar a rotina }
procedure rtnexibir_msg(parmsg: string); external 'funcoes.dll';

{$R *.DFM}

{ usar a rotina }
procedure TForm1.FormClick(Sender: TObject);
begin
  rtnexibir_msg('estou usando a rotina da dll ;)');
end;

Obs.: a funcoes.dll deve permanecer no mesmo diretorio que o seu programa. depois vou por outros post mais avancado sobre dll ;)