DELPHI做了个DLL,要INSTALLSHIELD中调用的问题

Question

dll中相关程序,生成abc.dllFunction My() : string ; stdcall ;
begin
Result := '123456';
end ;
{$R *.res}exports
My;
--------------------------
INSTALLSHIELD中相关程序
  prototype stdcall STRING abc.My();   
......
nResult=UseDLL( SUPPORTDIR ^ "abc.dll");  //加载DLL 
if (nResult =0) then  
   MessageBox("UseDLL successful \n\n.DLL file loaded.",INFORMATION);
   sS=My();
else
   MessageBox("UseDLL failed.\n\nCouldn't load CreateDB.DLL file.",INFORMATION);
   abort;
endif;
--------------------------
错误信息
 错误号码:0X0040704
 描述:DLL函数调用导致错误的堆栈
 可能是原型出错:abc.my痛苦ING

Answer 1

Function My() : string ; stdcall ; 
返回值要用pchar

Answer 2

Function My() : pchar; stdcall ; 
begin 
Result := '123456'; 
end ; 
 看下會不會出錯。
 DLL中加上 shareMem

Answer 3

DLL中改了,但是问题一样,请继续关注,谢谢!

Answer 4

加上cdecl修饰符看看
Function My() : pchar; cdecl;stdcall ;