procedure Tform1.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
if MessageBox(Application.Handle, pchar('是否退出'), pchar('是否退出'),
MB_YesNo + MB_ICONQUESTION) = IDYes then
CanClose := true
else
CanClose := false;
end;