谈Delphi编程中资源文件的应用[3]

　　第二步是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 := 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; 

Loadstring(hdll, 6, MyChar, 254); 
BtnHelp.Caption := MyChar; 

Loadstring(hdll, 7, MyChar, 254); 
SHelp := MyChar; 

Freelibrary(hdll); 
Application.Title := Self.Caption; 
//------------------------ 
BtnOpen.Visible := True; 
BtnSave.Visible := True; 
BtnBig5.Visible := True; 
BtnGb32.Visible := True; 
BtnHelp.Visible := True; 
//------------------------ 
end; 
procedure TForm1.BtnHelpClick(Sender: TObject); 
begin 
Application.MessageBox(Pchar(SHelp), 'Http://lovejingtao.126.com', MB_ICONINFORMATION); 
end; 
end. 

　　可能你会说,这种方法还不如我自己在程序中直接定义三种具体的值来的方便.甚至我自己自定义一个结构好了，用不着用DLL那么麻烦的。但是如果你的程序要用的字符很多呢?比如说Windows操作系统,本身就有简体中文,繁体中文,英文等等版本,用Dll的话只要直接替换DLL即可,而不用每发行一个版本就打开代码来修改一次。这样一来可以大大减少工作量和出错的机会.说到这里,再多说一句:Windows系统本身很多Dll带有了图片等资源,我们可以在程序中直接调用,这样一来我们的EXE也可以减少不少!当然最小的方法是实时生成技术.老外曾经写了一个67KB的程序就是利用了这个方法.感兴趣的朋友可以到http://go4.163.com/lovejingtao/ha1.exe下载. 

  
　　三、高级应用篇

　　Delphi是个很有效率的开发工具,但是它有一个缺点就是生成的EXE文件太大.一个程序就算只有一个空窗口体积也有286KB.如果直接用API来写的话程序体积是小了,但是又太繁琐,无法立即看到界面效果,根本谈不上是可视化开发.其实并非"鱼与熊掌不可兼得",利用资源文件我们就可以轻松达到这个目的. 

　　在开始之前,我们需要一个可以编辑资源文件的工具.这类工具很多,比如说Resource WorkShop就是非常好的一个.如果一时找不到,利用VC的编辑器来也是可以的.下面我们就以VC的为例示范如何创建一个窗口资源文件.运行VC,打开菜单File-->New,将出现一个多项选择页.我们选择Files-->ResourceTemplate,在右边的File填上Demo,Location选择保存路径,然后点击按钮OK返回VC开发环境. 

　　选择菜单Insert-->Resource,将出现一个资源类型选择框.我们把鼠标移到Dialog上面.不用展开,点击右边的New即可,这时候返回VC开发环境并出现一个只有关闭按钮和两个Button的窗体.将鼠标选定窗体,击右键选择最后一项Properties,将出现一个设置窗口,将ID改为"MAINFORM"(注意:跟下面添加的其它控件的属性设置方法不同,主窗口的ID必须把双引号写上去,而且名称必须为大写.否则程序将找不到资源.程序会一运行就退出了.)Caption改为"安装程序",这时候可以立刻看到窗口的标题变成了"安装程序",把Styles的Minimize box选上,More Styles的Center勾上使程序运行时的位置居中.当然你也可以设置它的坐标.其它保留默认值即可.回到开发环境,在控件框里面分别选择一个Static Text,一个Edit Box,一个Button和一个Group Box添加到窗体上面.把它们按照自己的爱好排列整齐.然后逐个修改它们的属性.方法就是按照上面说的选定控件后击右键选择最后一项Properties,在出现的属性框里面修改.其中属性如下:Group Box的Caption属性清空,Static Text的Caption属性改为"请选择安装目录:",Edit Box的ID改为10001.第一个Button的ID为10002,Caption属性为"选择",第二个Button的ID为10003,Caption属性为"安装",第三个Button的ID为10004,Caption属性为"退出".为了使程序更加完美,我们为它再添加一个菜单IDR_MENU1.选择Insert-->Resource-->Menu,我们这里只简单添加一项"文件-->退出",其中"退出"的ID为10005.然后在主窗口的属性Menu设定为IDR_MENU1即可. 

　　为了使程序更加美观,我们再添加一个小图标,同时这也将是我们程序的图标.选择Insert-->Resource-->Icon-->Import,选择一个图标文件.并将它的ID设置为"MAINICON"(注意:必须把双引号写上而且字母为大写),为窗口添加一个Picture控件并设置它的属性Type:Icon,Image下拉选择刚才的图标MainIcon即可. 

　　如果你想为程序在鼠标添加一些信息也是可以的.选择Insert-->Resource-->Version即可. 

　　到这里我们已经完成了一个简单的"安装程序"的窗体设计.实际上我们现在就可以在Delphi中调用它了.我们先把"劳动成果"保存起来.选择File-->Save As,在文件类型里选择"32-bit Resource File(.res)"保存为"Demo.res",文件大小大约为2.65KB. 

　　新建一个扩展名为dpr的文本文件MyDemo.Dpr,键入如下代码: 

Uses Windows,Messages; 
{$R Demo.Res} 
function MainDialogProc(DlgWin:hWnd;DlgMessage:UINT;DlgWParam:WPARAM;DlgLParam:LPARAM):integer;stdcall; 
begin 
Result := 0; 
case DlgMessage of 
WM_Close: 
begin 
PostQuitMessage(0); 
Exit; 
end; 
end; 
end; 
begin 
DialogBox(hInstance, 'MAINFORM', 0, @MainDialogProc); 
end. 

　　用Delphi打开它编译一次即可产生一个大小为19KB的EXE.是不是很小!实际上,你甚至只用一行代码就把它Show出来,不过程序无法关闭而已. 

Uses Windows; 
{$R Demo.Res} 
function MainDialogProc: integer; 
begin 
Result := 0; 
end; 
begin 
DialogBox(hInstance, 'MAINFORM', 0, @MainDialogProc); 
end.