dll传参

    function   ReturnCall(P:PChar):Boolean;stdcall;external   'trade.dll '; 
implementation 

{$R   *.dfm} 

procedure   TForm1.Button1Click(Sender:   TObject); 
var 
    P:PChar; 
begin 
    try 
        P:=StrAlloc(1024); 
        if   ReturnCall(P)   then 
            ShowMessage(string(P)); 
    finally 
        StrDispose(P); 
    end; 
end; 

dll的如下： 
uses 
    SysUtils, 
    Classes; 

    function   ReturnCall(P:PChar):Boolean;stdcall; 
    begin 
        StrCopy(P, 'this   is   a   demo! '); 
        Result:=True; 
    end; 
exports 
    ReturnCall; 
{$R   *.res} 

begin 
end.