我在调用DLL时为什么报错

Question

错误：
应用程序正常初始化（0xc000007b）失败
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  function SmallToBig(Small:real):string;stdcall; external 'Project1.dll' Name'SmallToBig' ;
implementation

Answer 1

如果要在DLL中返回String,请在USES中加入ShareMem单元. function SmallToBig(Small:real):string
或者写成
function SmallToBig(Small:real):Pchar;stdcall; external 'Project1.dll' Name'SmallToBig' ;

Answer 2

http://expert.csdn.net/Expert/topic/1163/1163924.xml?temp=.1219446同一个问题？