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 ； 

文章來源于領測軟件測試網 http://www.kjueaiud.com/