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(TForm1, Form1);
  //finally
  //  Form1.Free;


  //Application.Run;

end.