TApplication与主消息循环.docVIP

TApplication与主消息循环 Windows应用程序的每一个窗口都有一个大的消息循环以及一个窗口函数（WndProc）用以分发和处理消息。VCL作为一个Framework，当然会将这些东西隐藏起来，而重新提供一种易用的、易理解的虚拟机制给程序员。那么VCL是如何做到的呢？本节就来解答这个问题。只要代码单元中包含了Forms.pas，就会得到一个对象——Application。利用它可以帮助我们完成许多工作。例如要退出应用程序，可以使用Application.Terminate();Application对象是VCL提供的，在Forms.pas中可以看到如下这个定义：varApplication: TApplication;当创建一个默认的应用程序时，会自动得到以下几行代码：beginApplication.Initialize;Application.CreateForm(TForm1, Form1);Application.Run;end.这几行代码很简洁地展示了TApplication的功能、初始化、创建必要的窗体、运行……但是，这几行代码具体做了什么幕后操作呢？Application.Run之后，程序流程走向了哪里？1.脱离VCL的Windows程序??? 在此，给出一个用纯Pascal所编写的十分简单的Windows应用程序，以演