如何在DLL的输出函数中返回字符串给调用者

function aa( outstr: PChar ): Boolean; stdcall; var straa: string; //必须通过局部变量中转，不能直接使用var参数 begin Result := False; straa := 'abcd'; Move(straa[1], outstr^, Length(straa)); Result := True; end;

调用：

function aa(var outstr: string ): Boolean; var buffer: array[0..MAX_PATH-1] of char; begin FillChar(buffer, MAX_PATH, 0); Result := Taa(funcaa)(buffer); outstr := buffer; end;