升级到1.3版了
与以前相比有以下这些改进：
原来的TApplication.Minimize和TApplication.Restore存在bug
可能造成无法通过调用来最小化和还原，现在重写了这两个过程，应该正常了
响应了WM_ACTIVEAPP消息，然后在处理过程中调用了TApplication.OnActivate和
TApplication.OnDeactivate，确保针对这两个过程写的程序正常。
动态库也同时升级，改进的地方除了和静态版本相同的之外，还有以下几点：
实现了MessageBox函数。
实现了Minimize和Restore过程。
注意，最好使用代替窗体的相关函数过程代替Application对象的相应过程。
还有关于显示封面，使用下面这种方法比较好（同时适用于动态库和静态库）。
制作NAV程序封面的时候，最好不要将代码写在主窗体的FormCreate过程里面，此时，程序还没有创建主窗口，而Splash将被当作程序主窗口，在任务管理器中就会出现不必要的程序项目。因而，应当把代码放在Splash窗体单元的相应部分，比如一个公共过程Loading中。然后先由程序自动创建主窗体，在此之前要用Application.ShowMainForm := False;来禁止主窗体自动显示。紧接着，创建Splash窗体，然后显示Splash窗体，接着才调用Splash窗体的Loading，在Loading过程中记得在适当时候使用Update来刷新窗体。并且，在所有准备工作结束后，显示主窗体，同时关闭和释放Splash窗体。返回到工程源文件，进入消息循环。代码如下：
program NAVSplash;
uses
Forms,
Main in 'Source/Main.pas' {FormMain},
Splash in 'Source/Splash.pas' {FormSplash},
About in 'Source/About.pas' {AboutBox},
{$R *.res}
var
i: integer;
begin
Application.Initialize;
Application.ShowMainForm := False;
Application.CreateForm(TFormMain, FormMain);
Application.CreateForm(TFormSplash, FormSplash);
FormSplash.Show;
FormSplash.Update;
FormSplash.Loading;
Application.Run;
end.
unit Splash;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, jpeg, ComCtrls;
type
TFormSplash = class(TForm)
ProgressBar1: TProgressBar;
private
{ Private declarations }
public
procedure Loading;
{ Public declarations }
end;
var
FormSplash: TFormSplash;
implementation
uses Main, About;
{$R *.dfm}
var
i : Integer;
procedure TFormSplash.Loading;
begin
for i := 0 to 100000 do
begin
Update;
ProgressBar1.Position := ProgressBar1.Position + 1;
end;
Application.CreateForm(TAboutBox, AboutBox);
FormMain.Visible := True;
Close;
Release;
end;
end.
代码4.1 VAN程序封面示例
这次就这么多，以后再说吧。请密切注意版本升级（最新版本1.3）
!][
][