delphi怎样在关闭程序时弹出窗口？

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

在主窗体的CloseQuery事件里，使用messagebox进行提示，根据选择的按钮对Canclose进行设置就可以了
如
begin
  if messagebox(handle, '是否退出程序', '提示', MB_YESNO ) = IDNO then
    Canclose = False;
end;