broadcast.dpr

来自「多媒体播放后台管理系统适用于各种字幕播放软件的后台管理,包括播放内容、时间、等级」· DPR 代码 · 共 41 行

program BroadCast;

uses
  Forms,
  Controls,
  SysUtils,
  Dialogs,
  FrmLoginImpl in 'FrmLoginImpl.pas' {FrmLogin},
  FrmMainImpl in 'FrmMainImpl.pas' {FrmMain},
  FrmDeptMngImpl in 'FrmDeptMngImpl.pas' {FrmDeptMng},
  FrmUserMngImpl in 'FrmUserMngImpl.pas' {FrmUserMng},
  temp in 'Temp.pas',
  FrmModPswdImpl in 'FrmModPswdImpl.pas' {FrmModPswd},
  FrmNoticeImpl in 'FrmNoticeImpl.pas' {FrmNotice},
  FrmQryNoticeImpl in 'FrmQryNoticeImpl.pas' {FrmQryNotice};

{$R *.res}

var
  boolLogined: Boolean;
  
begin
  try
    Application.Initialize;
    Application.CreateForm(TFrmMain, FrmMain);
  Application.CreateForm(TFrmDeptMng, FrmDeptMng);
  Application.CreateForm(TFrmUserMng, FrmUserMng);
  Application.CreateForm(TFrmModPswd, FrmModPswd);
  Application.CreateForm(TFrmNotice, FrmNotice);
  Application.CreateForm(TFrmQryNotice, FrmQryNotice);
  FrmLogin := TFrmLogin.Create(Application);
    boolLogined := (FrmLogin.ShowModal() = mrOK);
    FreeAndNil(FrmLogin);

    if (boolLogined) then
      Application.Run;
  except
    ShowMessage('应用中断！');
  end;
end.