密码窗口

Question

program LibAdmin;uses
  Forms,
  Controls,
  Windows,
  LibMain in 'LibMain.pas' {frmLibMain},
  Pwd in 'Pwd.pas' {frmPwd};{$R *.RES}begin
    Application.Initialize;
    frmPwd:= TfrmPwd.Create(Application);//密码窗口
    try
      if frmPwd.ShowModal <> mrOK then 
        Application.Terminate
      else
        Application.CreateForm(TfrmLibMain, frmLibMain);//主窗口
    finally
      frmPwd.Free;
    end;
    Application.Run;
  end;
end.