w(HMainWnd);



  while GetMessage(AMsg, 0, 0, 0) do begin

    TranslateMessage(AMsg);

    DispatchMessage(AMsg);

  end;

end.



其实这些代码根本就是Win32 SDK中C语言例子程序的翻版，我想没有必要再对它们作什么解释了。需要提醒你注意的是：

1．Delphi程序没有像C程序那样的WinMain入口，程序的运行就从.DPR文件的begin开始，到与之匹配的end结束。而C程序中传递给WinMain的四个参数，在Delphi中则以全局变量的形式定义在System以及SysInit单元中，它们分别是HInstance、HPrevInst、CmdLine和CmdShow（HPrevInst已经没有意义）。

2．注意我把常量szAppName定义为PChar，而不是常用的String，因为在这么一个简单的程序中没有必要使用String的高级功能，这样可以节省不少空间（大约3-4k）。

3．我把{$R *.res}一句也注释起来了，这样可以从文件中剔除冗余的资源，从而节省大约1k左右的空间。

4．程序完成后，打开Project Options对话框，翻到Compiler页，将Runtime Errors和Debugging分类中的选项全部清除，这样也可以稍微减小最终文件的大小。



尽管还不能说8.5k一定就是最小的尺寸，不过我猜想这已经非常接近Delphi的极限了。在Visual C++中，很有意思的一点是所有可执行文件的大小都会对齐到4k的边界，所以在Visual C++中最小的.EXE和最小的.DLL大小都只能达到28k，除非使用一些非常特殊的隐藏编译开关。尽管Win32中的分页默认是4k，不过我实在想不通Visual C++把可执行文件的大小也对齐到4k究竟有什么意义？

另外，我手头还有一套非常非常古老的Turbo Pascal for Windows 1.5，它所编译出的最小的Windows可执行文件的大小——你肯定无法相信——只有1.75k！当然了，它毕竟只是个Win16程序而已。