请教：如何在DLL中传递字符串参数

[hunter_bobo]

我想在dll中定义如下类型的函数：
function enStr(Str: PChar): PChar;stdcall;
var
i:integer;
GetStr,OriginStr:string;
begin
GetStr:=StrPas(Str);
OriginStr:='';
if GetStr<>'' then
begin
for i:=1 to length(GetStr) do
begin
// Do someting;
end;
Result:=PChar(OriginStr);
end;
end;
如果从主程序传入一参数'abcd'，那么实参Str的值也应该是‘abcd’,但我总是得不到正确的传入值，请问高手是怎么回事？希望给出示例程序，谢谢！