我想在关闭delphi编译的程序时，弹出“您是否确实要退出的窗口”点击否不退出，是退出

在主窗体的CloseQuery事件里，使用messagebox进行提示，根据选择的按钮对Canclose进行设置就可以了

如

begin

  if messagebox(handle, '是否退出程序', '提示', MB_YESNO ) = IDNO then

    Canclose = False;

end;