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下通过。
原文：http://www.cnblogs.com/spiritofcloud/p/3978290.html