这是一个关于WINDOWS关闭的问题

[studyxp]

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
//CanClose为False时，表示禁止关闭Windows
if MessageDlg('数据尚未存盘，关机吗?',mbYesNoCancel,0)= mrYes then //28
CanClose:=true
else
CanClose:=False;
end;

[Error] Unit1.pas(28): Incompatible types: 'TMsgDlgType' and 'Set'


请问怎么回事呀！

[IORILI]

try if MessageDlg('确定要删除吗',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin try datamodule2.usr_righ.Close;

[bphoenix]

正确代码
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
//CanClose为False时，表示禁止关闭Windows
if MessageDlg('数据尚未存盘，关机吗?', mtConfirmation, [mbYes,mbNo,mbCancel], 0)= mrYes then //28
CanClose:=true
else
CanClose:=False;
end;

[FrameSniper]

MessageDlg('数据尚未存盘,关机吗?',mtConfirmation,[mbYes,mbNo,mbCancel], 0);

[studyxp]

那请问，如何捕获WINDOWS系统的关机信息呢