出现216系统错误，如何屏蔽？？

Question

在登录窗口退出时出现，没发消除，只有屏蔽掉，不要出现报错窗口即可。

Answer 1

你把EXE拿到一台没有DELPHI的机器上看看可以吗？？？

Answer 2

最好贴出代码
在登录窗口退出时出现，没发消除？
Freeandnil(logfrm);

Answer 3

代码如下，form显示
procedure TForm_denlu.FormShow(Sender: TObject);
var list:array[0..1] of tlistitem;begindm1.queryfz.close;
dm1.queryfz.sql.clear;
dm1.queryfz.sql.add('select * from myuser');
dm1.queryfz.open;
listview1.Items.Clear;
while not dm1.queryfz.eof do
begin
list[0]:=listview1.Items.Add;
list[0].Caption:=dm1.queryfz.fieldbyname('username').asstring;
if trim(dm1.queryfz.fieldbyname('username').asstring)='管理员'
then begin
list[0].ImageIndex:=0;
end
else
begin
list[0].ImageIndex:=1;
end;
dm1.queryfz.next;        //trim
end;
dm1.queryfz.Close;
end;登录按钮
procedure TForm_denlu.SpeedButton1Click(Sender: TObject);
begin
     if edit1.Text <>trim(dm1.queryfz.FieldByName('userpass').asstring) then
                begin
                        showmessage('密码错误');
                        edit1.setfocus;
                        exit;
                end
                else
                okno:=true;
                dm1.queryfz.close;
                hide;
                close;
end;退出按钮
procedure TForm_denlu.SpeedButton2Click(Sender: TObject);
begin     try            
        application.Terminate;
        except
        begin
        end;
end;project-viewsource:Application.Initialize;
  Application.CreateForm(TForm_main, Form_main);
  Application.CreateForm(Tdm1, dm1);
  Application.CreateForm(TForm_denlu, Form_denlu);
  form_denlu.showmodal;  if (okno= true) then
 //  load.Hide;
  // load.Free;
 Application.Run;

Answer 4

procedure TForm_denlu.SpeedButton2Click(Sender: TObject);
begin     try            
        application.Terminate;
        except
        begin
        end;
end;你EXCEPT下面begin end;
什么意思??
出现EXCEPT给个警告提示就行了..

Answer 5

就是希望不要有except出现警告提示。