把form 的
BorderStyle = bsNone
begin
Application.Initialize;
denglu:=Tdenglu.Create(Application);
//显示登陆窗口
denglu.ShowModal;
denglu.Update;
if valid =true then
//登陆窗口船来的boolean变量作一些判断,用户名,密码是否正确等,如果时其他的可用延时显示信息,下面大都一样的
begin
Application.Title := '...';
Application.CreateForm(Tform1, form1);
Application.Run;
end
else
Application.Terminate;
end.