delphi从资源加载dlll

如题，找了一圈，试了几次找到了，网上资料都是不全的，需要自己去整理。

1，新建文件Test.rc,在文件添加一行:"MyDll  DLL  Test.dll".Test.dll是dll文件的名称

2，命令行执行"Brcc32  test.rc",生成资源文件Test.res.

3,调用：

    1）在implementation下面增加{$R Test.res}

    2) 在代码中去调用，代码如下

 

var

rs:TResourceStream;

lib:DWORD;

func:TFunc;//这个是dll定义的函数类型定义

begin

rs := TResourceStream.Create(HInstance,'MyDll','DLL');  //关键，不这样写会报错文件找不到

lib := memLoadLibrary(rs.Memory);

func := MemGetProcAddress(lib,'FunctionName');

memFreeLibrary(lib);

rs.free;

end;

用到了UMemLibrary单元。