如题!
十分感谢!

解决方案 »

  1.   

    to czx0514(czx0514) 
    可能我没说清楚。
    我已经在CloseQuery中加入是否退出系统的提示框了,并且工作也正常。
    我的那个程序现在有点像后当的东西,并且一开机自动运行,以托盘的形式。
    现在的问题是,当我的程序运行时,如果关机或重启也出现那个提示框,我想把它去掉。
      

  2.   

    procedure TpayForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    begin
    if (Application.MessageBox(pchar('你真的要退出系统吗?'),pchar('提示'),MB_OKCANCEL+MB_ICONQUESTION)<>IDOK) then abort;
    Application.Terminate;
    end;