资源文件 -- 高级应用篇

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;

function SelectDirectory(handle: hwnd; const Caption: string; const Root:WideString;outDirectory:string): Boolean;
var
　lpbi: _browseinfo;
　buf: array[0..MAX_PATH] of char;
　id: ishellfolder;
　eaten, att: cardinal;
　rt: pitemidlist;
　initdir: pwidechar;
begin
　result := false;
　lpbi.hwndOwner := handle;
　lpbi.lpfn := nil;
　lpbi.lpszTitle := pchar(caption);
　lpbi.ulFlags := BIF_RETURNONLYFSDIRS + BIF_EDITBOX;
　SHGetDesktopFolder(id);
　initdir := pwchar(root);
　id.ParseDisplayName(0, nil, initdir, eaten, rt, att);
　lpbi.pidlRoot := rt;
　getmem(lpbi.pszDisplayName, MAX_PATH);
　try
　　result := shgetpathfromidlist(shbrowseforfolder(lpbi), buf);
　except
　　freemem(lpbi.pszDisplayName);
　end;
　if result then
　begin
　　directory := buf;
　　if length(directory) <> 3 then directory := directory + '\';
　end;
end;

function MainDialogProc(DlgWin: hWnd;
　　　　　　　　　　　　DlgMessage: UINT;
　　　　　　　　　　　　DlgWParam: WPARAM;
　　　　　　　　　　　　DlgLParam: LPARAM
　　　　　　　　　　　　): integer; stdcall;
var
　MyIcon: HICON;
　Sdir: string;
begin
　Result := 0;
　case DlgMessage of
　WM_INITDIALOG:
　begin
　　MyIcon := LoadIcon(hInstance, 'MainIcon');
　　SetClassLONG(DlgWin, GCL_HICON, MyIcon);
　　MainWin := DlgWin;
　end;
　WM_Close:
　begin
　　PostQuitMessage(0);
　　Exit;
　end;
　WM_COMMAND:
　　case LOWORD(DlgWParam) of
　　ID_Selet:
　　begin
　　　if SelectDirectory(DlgWin, '请选择安装目录', '', Sdir) then
SendMessage(GetDlgItem(DlgWin, ID_Edit), WM_SETTEXT, 0, lParam(pChar(Sdir)));
　　end;
　　ID_Setup:
　　begin
　　　if My_Gettext = '' then
　　　begin
　　　　MessageBox(DlgWin, '请先选择安装文件夹!', '信息', MB_ICONINFORMATION + MB_OK);
　　　　Exit;
　　　end;
　　　CopyFile(pchar(ParamStr(0)), pchar(My_Gettext + Getmyname), false);
　　　MessageBox(DlgWin, '安装完毕!', '信息', MB_ICONINFORMATION + MB_OK);
　　　PostQuitMessage(0);
　　　Exit;
　　end;
　　ID_Quit:
　　begin
　　　PostQuitMessage(0);
　　　EXIT;
　　end;
　　ID_Exit:
　　begin
　　　if MessageBox(DlgWin, '你点击了菜单"退出"，你确定退出程序吗?',
　　　　　　　　　　'信息', MB_ICONQUESTION + MB_OKCANCEL) = IDOK then
　　　　PostQuitMessage(0);
　　　Exit;
　　end;
　　end;
　end;
end;

begin
　DialogBox(hInstance, 'MAINFORM', 0, @MainDialogProc);
end.

　　其中SelectDirectory函数的作用是返回一个选择的文件路径。然后把自己拷贝到选择的目录下,当
然很多处理没有写,读者可以自行添加。文件编译后大小为22KB,如果直接用Delphi的VCL来写的话,将为
338KB!完整代码可以在我的主页上下载:http://go4.163.com/lovejingtao/setup2.zip。代码中的消息
处理相信大家看的懂。如果不用资源文件而直接用API来写将对它更加理解深刻。限于篇幅这里不做详
细介绍,感兴趣的读者可以自行下载代码来看:http://go4.163.com/lovejingtao/setup1.zip。全部代
码在Delphi+Pwin2000下通过。