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 

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