动态调用的DLL 如何装载多国语言包？ 【多国语言开发进阶】 ( 积分: 100 )

<br>function&nbsp;SetResourceHInstance(NewInstance:&nbsp;Longint):&nbsp;Longint;<br>var<br>&nbsp;&nbsp;CurModule:&nbsp;PLibModule;<br>begin<br>&nbsp;&nbsp;CurModule&nbsp;:=&nbsp;LibModuleList;<br>&nbsp;&nbsp;Result&nbsp;:=&nbsp;0;<br>&nbsp;&nbsp;while&nbsp;CurModule&nbsp;&lt;&gt;&nbsp;nil&nbsp;do<br>&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;CurModule.Instance&nbsp;=&nbsp;HInstance&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;CurModule.ResInstance&nbsp;&lt;&gt;&nbsp;CurModule.Instance&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FreeLibrary(CurModule.ResInstance);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CurModule.ResInstance&nbsp;:=&nbsp;NewInstance;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Result&nbsp;:=&nbsp;NewInstance;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Exit;<br>&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;CurModule&nbsp;:=&nbsp;CurModule.Next;<br>&nbsp;&nbsp;end;<br>end;<br>