plogin4.dpr

来自「《Delphi通用模块及典型系统开发实例导航》配套光盘第一章（数据库加密）」· DPR 代码 · 共 21 行

program pLogin4;

uses
  Forms,
  uMain in 'uMain.pas' {MainForm},
  uLogin in 'uLogin.pas' {LoginDlg},
  uCrypt in 'uCrypt.pas';

{$R *.res}

begin
  Application.Initialize;
  if TLoginDlg.Execute then
  begin
    Application.CreateForm(TMainForm, MainForm);
  Application.Run;
  end
  else
    Application.Terminate; 
end.