main.dpr

车辆管理系统

program Main;

uses
  sharemem,
  Forms,
  Windows,
  ClientMain in 'Public\ClientMain.pas' {frmClientMain},
  Base in '..\Public\Base.pas' {frmBase},
  Base_C in 'Ancestor\Base_C.pas' {frmBase_C},
  Serverip in 'Public\Serverip.pas' {frmServerip},
  dm_Client in 'Public\dm_Client.pas' {dmClient: TDataModule},
  Global in 'Public\Global.pas',
  Falsh in 'Public\Falsh.pas' {frmflash},
  Login in 'Public\Login.pas' {frmlogin},
  DataProcess in 'Public\DataProcess.pas',
  Changepwd in 'Public\Changepwd.pas' {frmchangepwd},
  Messagesend in 'Public\Messagesend.pas' {frmmessagesend},
  URegister in 'Public\URegister.pas' {frmregister},
  help in 'Public\Help.pas' {frmhelp},
  CreateDB in 'Public\CreateDB.pas' {frmCreateDB},
  Databaserestore in 'Public\Databaserestore.pas' {frmdatabaserestore},
  Databasebackup in 'Public\Databasebackup.pas' {frmdatabasebackup},
  DeleteDB in 'Public\DeleteDB.pas' {frmdeletedb},
  MMDIBase in 'Ancestor\MMDIBase.pas' {frmMMDIBase};

{$R *.res}

var
  Rtime:Real;

begin
  Frmflash:=Tfrmflash.Create(application);
  frmflash.Show;
  frmflash.Update;
  Rtime:=GettickCount div 1000;
  while (gettickcount div 1000)<(rtime+2) do
    Application.ProcessMessages; 
  Application.Initialize;
  frmflash.Hide;
  frmflash.Free;
  Application.CreateForm(TfrmClientMain, frmClientMain);
  Application.Run;
end.