工程文件的内容如下：（完整的示例可以到http://wolfsoft.nugoo.com上下载，标题是
启动封面及登录窗体的实现...，在首页的Top10中）
program Sale;
uses
Forms,
Windows,
Classes,
Sysutils,
Db,
ADODB,
Inifiles,
UnitMain in 'UnitMain.pas' {frmMain},
UnitSplash in 'UnitSplash.pas' {frmSplash},
DM in 'DM.pas' {DMMain: TDataModule},
Gloab in 'Gloab.pas',
Unit_Login in 'Unit_Login.pas' {frmLogin};
{$R *.RES}
begin
Application.Initialize;
frmSplash := TfrmSplash.Create(Application);
frmSplash.Show;
frmSplash.Repaint;
SetGlobalVar;
Inis := TIniFile.Create(CurDir + 'Sale.ini');
with CommParam do
begin
LocalName := Inis.ReadString('系统参数', '单位名称', '');
end;
Sleep(5000);
try
Application.CreateForm(TDMMain, DMMain);
DMMain.ADOConn.GetTableNames(FTablesST);
if Show_FormLogin then
begin
frmSplash.Update;
Application.CreateForm(TfrmMain, frmMain);
end;
finally
frmSplash.Close;
frmSplash.Free;
end;
Application.Run;
Inis.Free;
end.
