登录先于主程序启动

Question

可以这么做。即在工程文件里编写代码，先显示登录窗口，然后创建主Form。

Answer 1

    打开Project->View Source，会看到以下代码：
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.    然后在Application.Initialize之前调用Create(self)，显示登陆窗口即可，如果密码错，则不运行Application.Run;直接退出。

Answer 2

如下更改工程文件即可
program Project1;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {pass};{$R *.RES}begin
  Application.Initialize;
  Application.CreateForm(Tpass, pass);
   //pass为用户登录窗体
    pass.ShowModal;
  //用户合法性检查
   if pass.user.text<>? or pass.password.text<>? then
          application.Exit ;  //以下是启动程序主窗体
   Application.CreateForm(TForm1, Form1);  Application.Run;
end.

Answer 3

把登录窗口做成Splash窗口