我们平时看到的很多软件（PhotoShop，3DMax）都会在启动画面中显示当前正在启动哪个模块，并在模块加载失败时给予提示，这样的好处是，可以让比较专业的软件使用者知道当前软件加载了哪些模块，或者在软件发生启动错误时，让用户得以反馈是启动的哪个模块时发生了，以及在长时间的软件启动过程中，让用户知道软件还在工作，避免用户对其失去信息。。。

好了，说了那么多废话，就来看看我是怎么制作这样一个程序的，由于本人平时基本上都用Delphi来开发，所以以下代码也都是Delphi的，但是基本框架有了，相信要用其它语言实现也不会很难。另外，以下这些代码是我在过去的历次开发过程中组部提炼出来的，虽然还无法达到不修改即使用的地步，但是要修改的内容也不会很多。。

我的这个类叫做TAppLoader，首先要做的是，让它接管部分程序的初始化工作。
将工程dpr文件中的启动代码写成这样：
var
  GAppLoader:TAppLoader;

begin
  Application.Initialize;
  GAppLoader:=TAppLoader.Create();
  try
    if GAppLoader.DoLoad() then begin
      Application.Run;
    end;
  finally
    GAppLoader.Free;
  end;
end.
可以看到，所有的启动代码都在TAppLoader.DoLoad()函数中了，如果这个函数失败，则会返回false，此时就跳过Application.Run();过程，直接跳出程序。
接下来，来看一下这个类的定义：
  TAppLoader = class (TObject)
  private
    FSplashForm: TfrmSplash;
    FManagerList:TList;
  protected
    procedure InitializeManager(var AManager;AManagerClass:TCustomManagerClass);
    procedure OnAppLoading(ASender:TObject;AEvent:String;ADelay:Integer=5);
  public
    constructor Create();
    destructor Destroy(); override;
    function DoLoad: Boolean;
  end;

除了刚才说到的DoLoad()函数外，还可以看到这么两个函数：InitializeManager()和OnAppLoading()。
在说明InitializeManager()函数前，需要先介绍这么一个类：
  TCustomManagerClass = class of TCustomManager;

  TCustomManager = class(TObject)
  private
    FOnAppLoading:TAppLoadingEvent;
  protected
    procedure Initialize();virtual;abstract;
    procedure Finalize();virtual;abstract;
    procedure DoAppLoading(AEvent:String);
    property OnAppLoading:TAppLoadingEvent read FOnAppLoading write FOnAppLoading;
  public
    constructor Create();virtual;
  end;
在我的程序中，将所有的全局的资源管理类都叫做TxxxManager，而TCustomManager就定义了这些类的一些基本行为。说道这里，可能还有必要解释一下什么是资源管理类，说白了，也就是将整个软件运行期需要经常访问的资源、使用的功能都集中起来管理，比如我将数据库连接叫做：TDataManager，将串口通讯功能类叫做：TCommManager，等等。。。

这个基类定义了Initialize()和Finalize()两个虚方法，是用来让TAppLoader启动或关闭服务用的，这两个方法不同与构造与析构函数，它们初始化的不是类本身的资源