Delphi中用MessageBox()API函数做倒计时对话框。

API有隐藏的MessageBoxTimeOut函数可以做计时对话框，缺点是不能显示还剩下多少秒关闭。

1. const
2.   IDTIMEDOUT = 32000;
4. function MessageBoxTimeOut(hWnd: HWND;
5.   lpText: PChar; lpCaption: PChar; uType: UINT; wLanguageId: WORD;
6.   dwMilliseconds: DWORD): Integer; stdcall; external
7.   user32 name 'MessageBoxTimeoutA';

其实只要获得对话框的句柄就可以用时间器修改窗体或者按钮标题实现倒计时提示。
窗体激活后可以通过Hook CBT捕获HCBT_ACTIVATE
参考如下方法：

1. var
2.   hookHandle: THandle;
3.   dialogHandle: THandle;
4.   second: Integer;
6. function CBTHookCallback(nCode: Integer;
7.   wParam: WPARAM;
8.   lParam: LPARAM
9.   ): Integer; stdcall;
10. begin
11.   case nCode of
12.     HCBT_ACTIVATE:
13.       begin
14.         dialogHandle := wParam;
15.         second := 5;
16.         UnhookWindowsHookEx(hookHandle);
17.       end;
18.   end;
19.   Result := CallNextHookEx(hookHandle, nCode, wParam, lParam);
20. end;
22. procedure TForm1.Button1Click(Sender: TObject);
23. begin<