delphi怎么动态调用DLL返回字符串

delphi如何动态调用DLL返回字符串
在delphi7中,如何动态调用DLL返回字符串?
请说明⑴DLL中给主窗体传递字符串的代码;
  ⑵主窗体中调用并显示DLL传递来的字符串的代码.
上述请列出较完整代码.

[解决办法]
唉！
要学会自己学习啊。
exe中

Delphi(Pascal) code

type  TDllFun = function (TestStr: PChar; Len: Integer): Integer;procedure TForm1.Button2Click(Sender: TObject);var  GetStr: TDllFun;  Dllhandle: HMODULE;  TestStr: PChar;begin  Dllhandle := LoadLibrary('Project2.dll');  if Dllhandle <> 0 then  begin    try      GetStr := GetProcAddress(Dllhandle, 'GetStr');      GetMem(TestStr, 100); //字符串长度，自己设置      GetStr(TestStr, 100);      //使用      ShowMessage(TestStr);      FreeMem(TestStr);    finally      FreeLibrary(Dllhandle);    end;  end;end;
[解决办法]
少写一句
@f:=GetProcAddress(fh,'func');
ShowMessage(f());