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

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

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

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

1. var
2. hookHandle:THandle;
3. dialogHandle:THandle;
4. second:Integer;
6. functionCBTHookCallback(nCode:Integer;
7. wParam:WPARAM;
8. lParam:LPARAM
9. ):Integer;stdcall;
10. begin
11. casenCodeof
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. procedureTForm1.Button1Click(Sender:TObject);
23. begin
24. Timer1.Enabled:=True;
25. hookHandle:=SetWindowsHookEx(WH_CBT,CBTHookCallback,HInstance,0);
26. MessageBox(Handle,'Zswang路过','倒计时(5)',0);
27. end;
29. procedureTForm1.Timer1Timer(Sender:TObject);
30. begin
31. Dec(second);
32. ifsecond<=0then
33. begin
34. PostMessage(dialogHandle,WM_CLOSE,0,0);
35. TTimer(Sender).Enabled:=False;
36. end;
37. SetWindowText(dialogHandle,PChar(Format('倒计时(%d)',[second])));
38. end;

相对来说，C#中写得更麻烦一些，因为要自己什么API，如下是修改按钮标题的例子：

1. publicdelegateIntPtrHookProc(intnCode,IntPtrwParam,IntPtrlParam);
3. [DllImport("user32.dll")]
4. publicstaticexternIntPtrSetWindowsHookEx(inthookid,
5. HookProcpfnhook,IntPtrhinst,intthreadid);
7. [DllImport("user32.dll")]
8. publicstaticexternIntPtrCallNextHookEx(IntPtrhhook,
9. intcode,IntPtrwparam,IntPtrlparam);
11. [DllImport("kernel32.dll")]
12. publicstaticexternIntPtrGetModuleHandle(stringmodName);
14. [DllImport("user32.dll")]
15. publicstaticexternboolUnhookWindowsHookEx(IntPtrhhook);
17. publicconstintWH_CBT=5;
18. publicconstintHCBT_ACTIVATE=5;
19. IntPtrhookHandle=IntPtr.Zero;
21. publicdelegateboolWNDENUMPROC(IntPtrhwnd,intlParam);
23. [DllImport("user32.dll")]
24. publicstaticexternintEnumChildWindows(IntPtrhWndParent,
25. WNDENUMPROClpEnumFunc,intlParam);
27. [DllImport("user32.dll")]
28. publicstaticexternintGetClassName(IntPtrhWnd,StringBuilderlpClassName,
29. intnMaxCount);
31. [DllImport("user32.dll")]
32. publicstaticexternintGetWindowText(IntPtrhWnd,StringBuilderlpString,
33. intnMaxCount);
35. [DllImport("user32.dll")]
36. publicstaticexternvoidSetWindowText(IntPtrhwnd,stringlpString);
38. publicboolEnumChild(IntPtrhwnd,intlParam)
39. {
40. StringBuildervBuffer=newStringBuilder(256);
41. GetClassName(hwnd,vBuffer,vBuffer.Capacity);
42. if(vBuffer.ToString().ToLower()=="button")//按钮
43. {
44. StringBuildervText=newStringBuilder(256);
45. GetWindowText(hwnd,vText,vText.Capacity);
46. if(vText.ToString().ToLower().IndexOf("&a")>=0)//终止
47. SetWindowText(hwnd,"停不要动");
48. if(vText.ToString().ToLower().IndexOf("&r")>=0)//重试
49. SetWindowText(hwnd,"再来一次");
50. if(vText.ToString().ToLower().IndexOf("&i")>=0)//忽略
51. SetWindowText(hwnd,"就这样吧");
52. }
53. returntrue;
54. }
56. privateIntPtrCBTHookCallback(intnCode,IntPtrwParam,IntPtrlParam)
57. {
58. switch(nCode)
59. {
60. caseHCBT_ACTIVATE:
61. EnumChildWindows(wParam,newWNDENUMPROC(EnumChild),0);
62. UnhookWindowsHookEx(hookHandle);
63. break;
64. }
65. returnCallNextHookEx(hookHandle,nCode,wParam,lParam);
66. }
69. privatevoidbutton1_Click(objectsender,EventArgse)
70. {
71. hookHandle=SetWindowsHookEx(WH_CBT,newHookProc(CBTHookCallback),
72. GetModuleHandle(null),0);
73. MessageBox.Show("Zswang路过","提示",MessageBoxButtons.AbortRetryIgnore);
74. }