Dephi中资源文件的应用

领测软件测试网

　Var　Hicon:THANDLE; 
begin 
　Hinst:=Loadlibrary(’Icon.dll’); 
　If　Hinst=0　Then　Exit； 
　Hicon:=Loadicon(Hinst,Pchar(Edit1.Text)); 
If　Hicon<>0　Then　Image1.Picture.Icon.Handle:=Hicon; 
　FreeLibrary(Hinst); 
end; 
 如果你的程序想在国际上供使用不同语言的人使用的话,用Dll来存放字符资源将是一个好方法.因为Dll不象ini文件那样可以被人随便修改,特别是有时侯如果想保存一些版权信息的话用Dll就再好不过了。比如说你准备开发一个"汉字简繁体翻译器"软件,准备提供Gb32,Big5码和英文三种语言菜单给用户,那么你可以试试用Dll来保存字符资源. 
 我们需要建立三个Dll.第一步当然是写Rc文件,举Gb32码为例,内容如下: 
/*MySc.rc*/ 
#define IDS_MainForm_Caption 1 
#define IDS_BtnOpen_Caption 2 
#define IDS_BtnSave_Caption 3 
#define IDS_BtnBig5_Caption 4 
#define IDS_BtnGb32_Caption 5 
#define IDS_BtnHelp_Caption 6 
#define IDS_Help_Shelp 7 
Stringtable 
{ 
IDS_MainForm_Caption,"汉字简繁体翻译器" 
IDS_BtnOpen_Caption,"打开文件" 
IDS_BtnSave_Caption,"保存文件" 
IDS_BtnBig5_Caption,"转换成Big5" 
IDS_BtnGb32_Caption,"转换成Gb32" 

文章来源于领测软件测试网 https://www.ltesting.net/