delphi中如何使自已编的程序用Alt+F4和右上脚的X都不能关掉，只能结束任务？

Question

这样：
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
        CanClose:=false;
end;

Answer 1

可是不能运行。你看看，我加得有没有错?unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type
  TForm1 = class(TForm)
/////////////////// 用你的带码
  procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
/////////////////// 用你的带码
  private    { Private declarations }
  public    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}/////////////////// 用你的带码
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  canclose:=false;
end;
///////////////////
end.

Answer 2

对了。就是closequery里编写代码！

Answer 3

在窗体的CloseQuery事件中写:
canclose:=false;
这样就可以了!