project1.~dpr

delphi编制的简单系统登录程序。解压即可用。

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Form1 := TForm1.Create(nil);
  try
    Form1.ShowModal; //登陆窗体是Form1
    if Form1.ModalResult = mrOK then
       Application.CreateForm(TForm2, Form2);
  finally
    Form1.Free;
  end;
  Application.Run;
end.