project1.dpr

来自「自己编写的简单禁用usb端口的程序。 演示程序登录密码99366」· DPR 代码 · 共 24 行

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {FormMain},
  login in 'login.pas' {Form_login};

{$R *.res}

var
  lginfrm1 : TForm_login;
begin
  Application.Initialize;

  lginfrm1:=TForm_login.Create(application); //登录窗口

if lginfrm1.ShowModal= 1 then //登录窗体关闭时返回了mrOK值，说明登录成功
begin
    Application.CreateForm(TFormMain, FormMain);
  end;
  lginfrm1.Free;
  Application.Run;
end.