DELPHI封装dll的例子，留作纪念

主程序

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 function   ReturnCall(P:PChar):Boolean;stdcall;external   'test.dll ';
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var
    P:PChar;
begin
    try
        P:=StrAlloc(1024);
        if   ReturnCall(P)   then
            ShowMessage(string(P));
    finally
        StrDispose(P);
    end;
end;

end.

==========================

DLL文件

library test;

uses
  SysUtils,
  Classes,
  Forms,
  Windows,
  Messages,
  Unit2 in 'Unit2.pas' {frmTest};

{$R *.res}

var
frmTest:TfrmTest;
num:string;

 function   ReturnCall(P:PChar):Boolean;stdcall;
    begin
    with   TfrmTest.Create(nil)   do
        try
            ShowModal;
            num:=edt1.Text;
            StrCopy(P,PChar(num));
            Result:=True;
        finally
            Free;
        end;
    end;

exports
 ReturnCall;

begin
end.