Dephi资源文件中、高级应用篇
作者 凌众技术
来源 互联网
浏览
发布时间 2012-01-14
| */ #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" IDS_BtnHelp_Caption,"帮助" IDS_Help_Shelp,"输入文字或打开文件后按需要点击按钮即可转换!" } 第二步是Brcc32编译为Res文件后用上面的方法得到Dll文件,另外两个Dll用同样的方法生成.下面来应用一下: 新建一个工程,放上五个Button:BtnOpen,BtnSave,BtnBig5,BtnGb32和BtnHelp.还有一个TComboBox:CbSelect用来选择语言种类的. 具体代码如下: unit Unit1; interface ...... private SHelp: string; function SearchLanguagePack: TStrings; procedure SetActiveLanguage(LanguageName: string); { Private declarations } ...... implementation procedure TForm1.CbSelectChange(Sender: TObject); begin SetActiveLanguage(CbSelect.Text);//调用相应Dll文件读取相应字符. end; procedure TForm1.FormCreate(Sender: TObject); begin CbSelect.Items.AddStrings(SearchLanguagePack);//搜索当前目录下所有的Dll文件名称 end; function TForm1.SearchLanguagePack: TStrings; var ResultStrings: TStrings; DosError: integer; SearchRec: TsearchRec; begin ResultStrings := TStringList.Create; DosError := FindFirst(ExtractFilePath(ParamStr(0)) + '*.dll', faAnyFile, SearchRec); while DosError = 0 do begin ResultStrings.Add(ChangeFileExt(SearchRec.Name, '')); DosError := FindNext(SearchRec); end; FindClose(SearchRec); Result := ResultStrings; end; procedure TForm1.SetActiveLanguage(LanguageName: string); var Hdll: Hmodule; MyChar: array[0..254] of char; DllFileName: string; begin DllFileName := ExtractFilePath(ParamStr(0)) + LanguageName + '.dll'; if not FileExists(DllFileName) then Exit; Hdll := loadlibrary(Pchar(DllFileName)); Loadstring(hdll, 1, MyChar, 254); Self.Caption := MyC |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: 共享软件防破解的实用招法下一篇: Delphi&BCB一线程序员开发经验
关于Dephi资源文件中、高级应用篇的所有评论
