在工程文件中如下：
begin
Application.Initialize;
frm_password:=tfrm_password.Create(application);
frm_password.ShowModal;
if frm_password.ModalResult=mrOK then
begin
if frm_password.pass then
begin
Application.Title := 'xxxxxxxxx';
Application.CreateForm(Tdtmdl_dog, dtmdl_dog);
Application.CreateForm(TForm1, Form1);
Application.Run;
end;
end;
frm_password.Free;
end.
你是不是这个意思？
