DLL 返回字符串

//Library var V_String: string; procedure SetString(mStr: PChar); begin V_String := string(mStr); end; function GetString: PChar; begin Result := PChar(V_String); end; excetps SetString, GetString; end. //Unit or Project type TSetString = procedure(mStr: PChar); stdcall; TGetString = function: PChar; stdcall; var vHandle: THandle vStr: string; begin vHandle := LoadLibrary( 'XXX.dll '); vStr := '一个字符串 '; TSetString(GetProcAddress( 'SetString '))(PChar(vStr)); ShowMessage(string(TGetString(GetProcAddress( 'GetString ')))); FreeLibrary(vHandle); end;