关闭系统,报地址错误不知道为何,如图:

解决方案 »

  1.   

    这是工程启动时的代码?  Application.Initialize;
      Frm_fm:=TFrm_fm.Create(Application);
      Frm_fm.Update;  Application.CreateForm(TDM, DM);
      Application.CreateForm(TFrmMain, FrmMain);
      while Frm_fm.Timer1.Enabled do
      Application.ProcessMessages;
      Frm_dl:=TFrm_dl.Create(Application);
      Frm_dl.Show;
      Frm_fm.Free;
      Frm_dl.Update;
      While Frm_dl.RB.Checked and Frm_dl.CB.Checked do
       Application.ProcessMessages;
       if Frm_dl.CB.Checked then
       begin
        application.CreateForm(TFrmMain,FrmMain);
       end
       else
       Frm_dl.Free;
      Application.Run;
    请大家多多指教。