怎么让程序跳出一个确认窗口?

Question

怎么让程序跳出一个确认窗口,上面有确定和取消两个按钮,确定后程序继续执行,取消后中止,或跳出过程?

Answer 1

if Application.MessageBox('Are you sure do it?', 'Question', MB_OKCANCEL) = IDOK then
  begin
    //continue...
  end
else
  begin
    //abort...
  end;

Answer 2

if not (Application.Messagebox('你要继续执行么？',Pchar(Application.title),MB_ICONQUESTION+MB_YESNO)=IDYES) then
     abort;/break;