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

　　上面的程序只不过是一个空窗口而已,现在我们来写代码响应按下相应按钮响应的事件.完整代码如下:

　　program MyDemo;
　　uses Windows, Messages, shlobj;
　　const
　　ID_Edit = 10001;
　　ID_Selet = 10002;
　　ID_Setup = 10003;
　　ID_Quit = 10004;
　　ID_Exit = 10005;
　　{$R Demo.Res}
　　var
　　MainWin: HWND;

　　function My_Gettext: string;
　　var
　　Textlength: Integer;
　　Text: PChar;
　　s: string;
　　begin
　　TextLength := GetWindowTextLength(GetDlgItem(MainWin, ID_Edit));
　　GetMem(Text, TextLength + 1);
　　GetWindowText(GetDlgItem(MainWin, ID_Edit), Text, TextLength + 1);
　　s := text;
　　FreeMem(Text, TextLength + 1);
　　Result := s;
　　end;

　　function Getmyname: string;
　　var
　　i, j: integer;
　　begin
　　J := 3;
　　for i := 1 to length(ParamStr(0)) do
　　if ParamStr(0)[i] = '/' then J := I;
　　Result := copy(ParamStr(0), J + 1, length(ParamStr(0)) - J);
　　end;