delphi 登陆，当用户密码错误的时候，自动关闭程序；

密码错误后，上面的 if LoginBool then自然无法取得true，程序就关闭了，改动的话，可以将

FinLoginFm:=TFinLoginFmCreate(Application);

FinLoginFmShowModal;

改为（大概是这个意思，很久不用delphi了)

LoginBool:=false;

while (not LoginBool) do

begin

FinLoginFm:=TFinLoginFmCreate(Application);

FinLoginFmShowModal;

end

1）ctrl + alt + delt 进程里选程序然后关闭

2）不然 开始-〉运行 打入msconfig 在服务和启动里选不要的程序，

3）再不然就要改注册表了。。。这个觉得有点困难，可以写一个小的shell来做。

4）最后有一个小软件叫做process explorer 是微软的一个小程序，下载以后何以察看现在系统运行中的程序，然后选定一个关掉也很放便，这个程序也只不过1mb左右，对查木马也有一点用。

你要以在窗体上放一个Timer1控件，在里面添加上关闭程序的代码。

procedure TForm1Timer1Timer(Sender: TObject);

begin

Form1Close;

end;

然后将其的Interval设计为0,就是不启动。

当你想让其5秒后关闭时，就将Timer1的Interval设计为5000就可以了。这样5秒后就会运行其中的关闭程序代码来关闭窗体了。

自己来回答吧。经过自己的测试，发现用Close()可以实现，或者说，直接用窗体右上角的关闭按钮关闭，但是onClose事件不要自定义——如果要自定义的话，用close()方法。用xxxfree在一些情况下也是可以的，但是不是所有的地方都行，至于xxxclose，基本上没有遇到行的地方，至少我测试的时候是这样的。

添加一个按钮Button1,然后写Button1的OnClick事件：

procedure TForm1Button1Click(Sender: TObject);

begin

ApplicationTerminate; //close或者halt或者selfclose，都可以;

end;

原因就是字符串所存储的内容超过DELPHI系统堆栈默认的大小 16100000 。我们可以改大这个默认值。

那么如何给我们的应用程序分配更大的内存空间以避免堆栈溢出呢？其实，在每个Delphi项目中都有一个设置应用程序内存大小的地方。

解决方法：

点击 Project 菜单中 -> Options -> Linker -> Memory sizes -> 按照需要，改变 Max stack size 的大小。比如飘易这里改成了 1,000,000 ，即 161,000,000 。

注：Max stack size 的默认大小为 16100,000 ，允许的范围在 65,536-16,777,216 。

以上就是关于delphi 登陆，当用户密码错误的时候，自动关闭程序；全部的内容，包括:delphi 登陆，当用户密码错误的时候，自动关闭程序；、Delphi 中怎么让程序暂停一会儿、DELPHI如何实现5秒内自动关闭窗体等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！