project1.~dpr

来自「本代码用于看电子书 文件 望大家共享」· ~DPR 代码 · 共 25 行

program Project1;

uses
  Forms, dialogs,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};
 var
   password:string;
{$R *.res}

begin
  Application.Initialize;
   if inputquery('登录口令521','输入口令',password) then
    begin
     if password='521' then
       begin

  Application.CreateForm(TForm1, Form1);
  Application.Run;
  end
  else
    messagedlg('口令不正确程序终止',mterror,[mbok],0);
    end;
end.