谈Delphi编程中资源文件的应用(5)
2008-04-09 04:28:43来源：互联网 阅读 ()
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下通过.
------------------------------------------------------------------------
★作者:
陈经韬
430074湖北省武汉市武昌民院路湖北经济管理大学计算机系(本)9801班
Http:Lovejingtao.126.com
E-Mail: Lovejingtao@21.cn.com
©CopyRight 2000-2001