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; 

文章來源于領測軟件測試網 http://www.kjueaiud.com/