怎样能弹出一个确认对话框-DELPHI新手的问题

Question

begin
  if MessageDlg('Exit now?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    //用户选择退出
    ...
    exitwindowsex(ewx_reboot,0)
    ...  end;
end;

Answer 1

可以用MessageBox呀
begin
if MessageBox(Form1.handle,'确定重新启动？','询问',MB_YESNO+MB_QUESTION+MB_DEFBUTTON2)=1 then
ExitWindowsEx(EWX_REBOOT,0);
end;

Answer 2

if application.messagegox('确定吗?','',mb_yesno+mb_iconquestion) <> mryes then exit;ExitWindowsEx(EWX_REBOOT,0);