VCL中Application.Run()的过程

2005年3月15日,发布于:  http://zyyang.spaces.live.com/blog/cns!193DAE30814DFA36!210.entry

1. procedure TApplication.Run;
2. begin
3.   FRunning := True; //I am Running.
4.   try
5.     AddExitProc(DoneApplication); //Add the current Application's Exit Proc Handler(Using AddExitProc()) so that DoneApplication is called when Exit.
6.     if FMainForm <> nil then //The first Form Application Creates.
7.     begin
8.       case CmdShow of
9.         SW_SHOWMINNOACTIVE: FMainForm.FWindowState := wsMinimized;
10.         SW_SHOWMAXIMIZED: MainForm.WindowState := wsMaximized;
11.       end;
12.       if FShowMainForm then
13.         if FMainForm.FWindowState = wsMinimized then
14.           Minimize else
15.           FMainForm.Visible := True;
16.       repeat
17.         try
18.           HandleMessage; //Messages Handling
19.         except
20.           HandleException(Self); //Exception
21.         end;
22.       until Terminated;  //Application if told to shutdownn.
23.     end;
24.   finally
25.     FRunning := False; // Everything is over.
26.   end;
27. end;