关于程序启动时增加登录窗口的问题

Question

在主FORM中的ONSHOW事件中创建,根据传递回来的参数判断,不是合法用户的立即CLOSE.

Answer 1

在工程文件创建登陆界面：
  LogoFrm:=TLogoFrm.Create(Application);
  if LogoFrm.ShowModal=mrOk then
    .....
  Application.CreateForm(TForm1,Form1);
  ........

Answer 2

可在登录窗体中做个登录函数，然后在工程文件中调用即可!如下：
begin
  Application.Initialize;
  if Login() then //Login()函数为登录窗体中自己写的登录函数，成功则返回True
  begin
    Application.CreateForm(TmainForm, mainForm);
  end;
  Application.Run;
end.

Answer 3

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.