Dephi中資源文件的應用

領測軟件測試網

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 

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