mainproject1.dpr

这是一个Delphi很好很全面知识的实例

program mainProject1;



uses
  Forms,
  mainUnit1 in 'mainUnit1.pas' {MainForm},
  MDUnit1 in 'MDUnit1.pas' {MD: TDataModule},
  SPUnit1 in 'SPUnit1.pas' {SPForm},
  untDL in 'untDL.pas' {frmDL},
  SRLLUnit1 in 'SRLLUnit1.pas' {SRLLForm},
  ZCLLUnit1 in 'ZCLLUnit1.pas' {ZCLLForm},
  TJSRUnit1 in 'TJSRUnit1.pas' {TJSRForm},
  TJZCUnit1 in 'TJZCUnit1.pas' {TJZCForm},
  SRCXUnit1 in 'SRCXUnit1.pas' {SRCXForm},
  ZCCXUnit1 in 'ZCCXUnit1.pas' {ZCCXForm},
  SRBBUnit1 in 'SRBBUnit1.pas' {SRBBForm},
  ZCBBUnit1 in 'ZCBBUnit1.pas' {ZCBBForm},
  XGYHUnit1 in 'XGYHUnit1.pas' {XGYHForm},
  DelAddUnit1 in 'DelAddUnit1.pas' {DelAddForm},
  DelOutUnit1 in 'DelOutUnit1.pas' {DelOutForm},
  LLYHUnit1 in 'LLYHUnit1.pas' {LLYHForm},
  AddUserUnit1 in 'AddUserUnit1.pas' {AddUserForm},
  SRDYUnit1 in 'SRDYUnit1.pas' {SRDYForm},
  ZCDYUnit1 in 'ZCDYUnit1.pas' {ZCDYForm},
  AboutUnit1 in 'AboutUnit1.pas' {AboutForm};

{$R *.res}

begin
  Application.Initialize;
  spform:=TSPForm.Create(application);
  spform.Show;
  spform.Update;
  while spform.Timer1.Enabled do
  application.ProcessMessages;
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TMD, MD);
  Application.CreateForm(TfrmDL, frmDL);
  Application.CreateForm(TZCBBForm, ZCBBForm);
  Application.CreateForm(TSRBBForm, SRBBForm);
  Application.CreateForm(TSRDYForm, SRDYForm);
  Application.CreateForm(TZCDYForm, ZCDYForm);
  spform.Free;
  Application.Run;
end.