plogin1.dpr

来自「《Delphi通用模块及典型系统开发实例导航》配套光盘第一章（文本文件）」· DPR 代码 · 共 20 行

program pLogin1;

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

{$R *.res}

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