epdm.dpr

来自「极具实用价值的文件管理系统」· DPR 代码 · 共 54 行

program ePdm;

uses
  Forms,
  Windows,
  Controls,
  MainF in 'MainF.pas' {fmMain},
  PubFuns in 'PubFuns.pas',
  MainD in 'MainD.pas' {dmMain: TDataModule},
  BaseF in 'BaseF.pas' {fmBase},
  DocumentsTypeF in 'DocumentsTypeF.pas' {fmDocumentsType},
  DialogBaseF in 'DialogBaseF.pas' {fmDialogBase},
  DocumentsF in 'DocumentsF.pas' {fmDocuments},
  SystemOptionsF in 'SystemOptionsF.pas' {fmSystemOptions},
  ImageViewerF in 'ImageViewerF.pas' {fmImageViewer},
  ExportToFolderF in 'ExportToFolderF.pas' {fmExportToFolder},
  ImportFromFolderF in 'ImportFromFolderF.pas' {fmImportFromFolder},
  AboutF in 'AboutF.pas' {fmAbout},
  GraphicEx in '..\..\GraphicEx\GraphicEx.pas',
  PrintF in 'PrintF.pas' {fmPrint},
  LogoF in 'LogoF.pas' {fmLogo},
  LoginF in 'LoginF.pas' {fmLogin},
  InformationF in 'InformationF.pas' {fmInformation},
  ModifyPasswordF in 'ModifyPasswordF.pas' {fmModifyPassword};

{$R CycControls.res}
{$R *.res}

begin
  Application.Initialize;
  fmLogin := TfmLogin.Create(Application);
  try
    if fmLogin.ShowModal <> mrOK then
      Exit;
  finally
    fmLogin.Free;
  end;
  fmLogo := TfmLogo.Create(Application);
  fmLogo.Show;
  fmLogo.Update;
  Application.CreateForm(TdmMain, dmMain);
  Application.CreateForm(TfmMain, fmMain);
  Application.CreateForm(TfmModifyPassword, fmModifyPassword);
  try
    LockWindowUpdate(fmMain.Handle); //Prevent form blinking
    fmMain.Show;
  finally
    LockWindowUpdate(0);
  end;
  fmLogo.Hide;
  fmLogo.Free;
  Application.Run;
end.