zoukankan      html  css  js  c++  java
  • Undocumented MessageBoxTimeOut function

    There are lots of neat little things that are in many of the DLLs that Microsoft has installed in Windows. Most of them are documented in the Win32 API. However, there are a lot of them that are undocumented. This article shows how to use one of the undocumented functions available in user32.dll, MessageBoxTimeOut.

    This type of functionality for a MessageBox has been requested on the Delphi newsgroups many times and there have been several solutions written. After being introduced in XP, this functionality is now available to developers using this undocumented API.

    Since this function is not documented, it is not found in Windows.pas, so it has to be defined. It is identical to the MessageBox API definition except it has two more parameters, wLanguageID and dmMilliseconds.

    function MessageBoxTimeOut(
          hWnd: HWND; lpText: PChar; lpCaption: PChar;
          uType: UINT; wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall;
          external user32 name 'MessageBoxTimeoutA';
    function MessageBoxTimeOutA(
          hWnd: HWND; lpText: PChar; lpCaption: PChar;
          uType: UINT; wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall;
          external user32 name 'MessageBoxTimeoutA';
    function MessageBoxTimeOutW(
          hWnd: HWND; lpText: PWideChar; lpCaption: PWideChar;
          uType: UINT; wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall;
          external user32 name 'MessageBoxTimeoutW';

    // this const is not defined in Windows.pas
    const
      MB_TIMEDOUT = 32000;

    Now, to call the function, it is as easy as setting the flags and making the call. There may be other results returned that I am not aware of besides the standard IDxxx return values and the MB_TIMEDOUT result defined above.

    implementation

    {$R 
    *.dfm}
    //interface declaration
    function MessageBoxTimeOut(
          hWnd: HWND; lpText: PChar; lpCaption: PChar;
          uType: UINT; wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall;
          external user32 name 
    'MessageBoxTimeoutA';
    function MessageBoxTimeOutA(
          hWnd: HWND; lpText: PChar; lpCaption: PChar;
          uType: UINT; wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall;
          external user32 name 
    'MessageBoxTimeoutA';
    function MessageBoxTimeOutW(
          hWnd: HWND; lpText: PWideChar; lpCaption: PWideChar;
          uType: UINT; wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall;
          external user32 name 
    'MessageBoxTimeoutW';
    const
      MB_TIMEDOUT 
    = 32000;


    procedure TForm3.Button1Click(Sender: TObject);
    var
      iRet: Integer;
      iFlags: Integer;
    begin
      iFlags :
    = MB_OK or MB_ICONINFORMATION;
      MessageBoxTimeout(Application.Handle, 
    'Test a timeout of 2 seconds. ''MessageBoxTimeout Test', iFlags, 02000) ;
      
      iFlags :
    = MB_YESNO or MB_ICONINFORMATION;
      iRet :
    = MessageBoxTimeout(Application.Handle, 'Test a timeout of 5 seconds.''MessageBoxTimeout Test', iFlags, 05000) ;   
      
    case iRet of  
        IDYES:
          ShowMessage(
    'Yes');   
        IDNO:   
          ShowMessage(
    'No');   
        MB_TIMEDOUT:   
          ShowMessage(
    'TimedOut');   
      end;   

    end;

    end.
  • 相关阅读:
    mhWaveEdit 1.4.8
    FFmpeg — 屏幕录制器材
    GNOME 主题: Troll
    cGmail — 主动反省邮件
    最小化布置 Ubuntu
    GNOME Do — 疾速翻开法式和文件
    PyTone 一个控制台音乐播放器
    高恪守编辑器 VIM-把持篇(2)
    Cankiri:玲珑实用的屏幕录像机
    LiVES 0.9.6pre4
  • 原文地址:https://www.cnblogs.com/taobataoma/p/856385.html
Copyright © 2011-2022 走看看