Dephi中资源文件的应用

领测软件测试网

DllFileName := ExtractFilePath(ParamStr(0)) + LanguageName + ’.dll’; 
if not FileExists(DllFileName) then Exit; 
Hdll := loadlibrary(Pchar(DllFileName)); 

Loadstring(hdll, 1, MyChar, 254); 
Self.Caption := MyChar; 
//读取字符资源，1表示资源文件中定义的1 
Loadstring(hdll, 1, MyChar, 254); 
Self.Caption := MyChar; 

Loadstring(hdll, 2, MyChar, 254); 
BtnOpen.Caption := MyChar; 

Loadstring(hdll, 3, MyChar, 254); 
BtnSave.Caption := MyChar; 

Loadstring(hdll, 4, MyChar, 254); 
BtnBig5.Caption := MyChar; 

Loadstring(hdll, 5, MyChar, 254); 
BtnGb32.Caption := MyChar; 

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