解决方法
Windows API具有在指定时间内显示消息框的功能,但由于某种原因,该功能未记录,这意味着它没有得到官方支持,可能会有所变化.
该函数被称为MessageBoxTimeout,它甚至在user32.dll库中导出,让我觉得这个函数唯一缺少的是官方文档.但是谁知道……
以下脚本显示如何在显示向导表单之前显示消息框5秒.如果用户未单击“确定”按钮,也不手动关闭窗口,则在该5秒时间过后,消息框将自动关闭:
[Code] #ifdef UNICODE #define AW "W" #else #define AW "A" #endif const MB_TIMEDOUT = 32000; MB_ICONERROR = $10; MB_ICONQUESTION = $20; MB_ICONWARNING = $30; MB_ICONinformatION = $40; function MessageBoxTimeout(hWnd: HWND; lpText: string; lpCaption: string; uType: UINT; wLanguageId: Word; dwMilliseconds: DWORD): Integer; external 'MessageBoxTimeout{#AW}@user32.dll stdcall'; procedure InitializeWizard; begin MessageBoxTimeout(WizardForm.Handle,'This message will be automatically ' + 'closed in 5 seconds!','Caption...',MB_OK or MB_ICONinformatION,5000); end;
有关参数和结果值的更多信息,请参阅MessageBox
函数帮助站点和一些描述MessageBoxTimeout函数本身的非官方文章,例如:
> Maurizio Pisano: MessageBoxTimeout API (CodeProject)
> Eddie Shipman: Undocumented MessageBoxTimeOut function (Embarcadero)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。