Dephi中资源文件的应用

领测软件测试网

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下通过. 
[全文结束]  

六、参考资料： 
  1。http://www.delphiok.com/bcjq/all/114.htm 来自Delphi技巧网； 
  2。http://www.delphibbs.com/delphibbs/dispq.asp?lid=2358589 ； 
     http://www.delphibbs.com/delphibbs/dispq.asp?lid=2369429 ； 

文章来源于领测软件测试网 https://www.ltesting.net/