关于DLL, 我可是倾囊而出(200分)

话接上回，最近几日,本人也对DLL产生了兴趣，因为也用到，现将刚学的就拿出来买，
望诸位“虾”们各抒己见，不过我想这也可能是终结答案了？！

调用Dll程序中写：
1)
Type
TDllFunc = procedure (ReverseStr: String);
Var
hLib: THandle;
DllFunc: TDllFunc;
SourceStr: String;
Begin

...
2) hLib := LoadLibrary('Dll路径、文件名');
..

3) Dllfunc := TDllFunc(GetProcAddress(hLib,'Dll中的函数/过程名'));
if @DllFunc=Nil Then Error
Else
Begin
DllFunc(SourceStr);
Edit1.Text := SourceStr;
End;

4) FreeLibrary(hLib);
End;

有了以上的4步，你就可以自由调用Dll中的过程/函数了，返回值很轻松地得到，如
例子中的SourceStr.

to jams:
DllFunc(SourceStr); 这一句怎么解释。总出错，访问非法地址。

to mengxiangwen:
你说的两个地方，我都去不了，还有什么地方有。

to barton: 去不了

这是最新的8.9版:
<a href="http://www.chez.com/apujol/zip/w32dsm89.zip">下载程序</a>911KB
<a href="http://www.jh.zj.cninfo.net/~corner/free/cracks/pc_wds89.zip">下载注册机</a>

to barton: 没有911kb, 只有一个117kb，是个坏文件

已经发给你了,收好.

哈哈:

这个问题已经很长时间没有人参加讨论，为保持版面
整洁，节约网友时间，请提问者选择继续讨论或结束
问题。关于本版管理细则，请参见<a href="http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=111927">这个</a>问题。如两天
内提问者没有响应，我将采取强制措施。请提问者尽
可能自己处理自己的问题。这是您的权利，也是您的
义务。

如有管理建议，请到<a href="http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=111927">这里</a>提出。谢谢！

了结吧！以“净化灵魂”.

多人接受答案了。