把Message转换成String
注意，这里欠缺CM消息和CN消息，因为它们不是系统消息，不经过Dispatch API转发，但是可以把它们写在WndProc里，这样SendMessage送来的消息也可截获，或者Dispatch里，这样动态消息也可统统截获。另外就是要把VCL标准控件里，凡是改写了WndProc的子类也要截取，因为Windows会把消息发给它们，却不一定会调用TWinControl.WndProc函数（但大多数还是调用了，没准是全部）。唯一不能截获的是子类出现了新消息，并且改写了WndProc函数，不过这种情况不一定存在。还有自定义消息，还有第三方控件。

function WM_To_String(WM_Message: Integer): string;

begin

case WM_Message of

$0000: Result := 'WM_NULL';

$0001: Result := 'WM_CREATE';

$0002: Result := 'WM_DESTROY';

$0003: Result := 'WM_MOVE';

$0005: Result := 'WM_SIZE';

$0006: Result := 'WM_ACTIVATE';

$0007: Result := 'WM_SETFOCUS';

$0008: Result := 'WM_KILLFOCUS';

$000A: Result := 'WM_ENABLE';

$000B: Result := 'WM_SETREDRAW';

$000C: Result := 'WM_SETTEXT';

$000D: Result := 'WM_GETTEXT';

$000E: Result := 'WM_GETTEXTLENGTH';

$000F: Result := 'WM_PAINT';

$0010: Result := 'WM_CLOSE';

$0011: Result := 'WM_QUERYENDSESSION';

$0012: Result := 'WM_QUIT';

$0013: Result := 'WM_QUERYOPEN';

$0014: Result := 'WM_ERASEBKGND';

$0015: Result := 'WM_SYSCOLORCHANGE';

$0016: Result := 'WM_EndSESSION';

$0017: Result := 'WM_SYSTEMERROR';

$0018: Result := 'WM_SHOWWINDOW';

$0019: Result := 'WM_CTLCOLOR';

$001A: Result := 'WM_WININICHANGE or WM_SETTINGCHANGE';

$001B: Result := 'WM_DEVMODECHANGE';

$001C: Result := 'WM_ACTIVATEAPP';

$001D: Result := 'WM_FONTCHANGE';

$001E: Result := 'WM_TIMECHANGE';

$001F: Result := 'WM_CANCELMODE';

$0020: Result := 'WM_SETCURSOR';

$0021: Result := 'WM_MOUSEACTIVATE';

$0022: Result := 'WM_CHILDACTIVATE';

$0023: Result := 'WM_QUEUESYNC';

$0024: Result := 'WM_GETMINMAXINFO';

$0026: Result := 'WM_PAINTICON';

$0027: Result := 'WM_ICONERASEBKGND';

$0028: Result := 'WM_NEXTDLGCTL';

$002A: Result := 'WM_SPOOLERSTATUS';

$002B: Result := 'WM_DRAWITEM';

$002C: Result := 'WM_MEASUREITEM';

$002D: Result := 'WM_DELETEITEM';

$002E: Result := 'WM_VKEYTOITEM';

$002F: Result := 'WM_CHARTOITEM';

$0030: Result := 'WM_SETFONT';

$0031: Result := 'WM_GETFONT';

$0032: Result := 'WM_SETHOTKEY';

$0033: Result := 'WM_GETHOTKEY';

$0037: Result := 'WM_QUERYDRAGICON';

$0039: Result := 'WM_COMPAREITEM';

$003D: Result := 'WM_GETOBJECT';

$0041: Result := 'WM_COMPACTING';

$0044: Result := 'WM_COMMNOTIFY { obsolete in Win32}';

$0046: Result := 'WM_WINDOWPOSCHANGING';

$0047: Result := 'WM_WINDOWPOSCHANGED';

$0048: Result := 'WM_POWER';

$004A: Result := 'WM_COPYDATA';

$004B: Result := 'WM_CANCELJOURNAL';

$004E: Result := 'WM_NOTIFY';

$0050: Result := 'WM_INPUTLANGCHANGEREQUEST';

$0051: Result := 'WM_INPUTLANGCHANGE';

$0052: Result := 'WM_TCARD';

$0053: Result := 'WM_HELP';

$0054: Result := 'WM_USERCHANGED';

$0055: Result := 'WM_NOTIFYFORMAT';

$007B: Result := 'WM_CONTEXTMENU';

$007C: Result := 'WM_STYLECHANGING';

$007D: Result := 'WM_STYLECHANGED';

$007E: Result := 'WM_DISPLAYCHANGE';

$007F: Result := 'WM_GETICON';

$0080: Result := 'WM_SETICON';

$0081: Result := 'WM_NCCREATE';

$0082: Result := 'WM_NCDESTROY';

$0083: Result := 'WM_NCCALCSIZE';

$0084: Result := 'WM_NCHITTEST';

$0085: Result := 'WM_NCPAINT';

$0086: Result := 'WM_NCACTIVATE';

$0087: Result := 'WM_GETDLGCODE';

$0088: Result := 'WM_SYNCPAINT';

$00A0: Result := 'WM_NCMOUSEMOVE';

$00A1: Result := 'WM_NCLBUTTONDOWN';

$00A2: Result := 'WM_NCLBUTTONUP';

$00A3: Result := 'WM_NCLBUTTONDBLCLK';

$00A4: Result := 'WM_NCRBUTTONDOWN';

$00A5: Result := 'WM_NCRBUTTONUP';

$00A6: Result := 'WM_NCRBUTTONDBLCLK';

$00A7: Result := 'WM_NCMBUTTONDOWN';

$00A8: Result := 'WM_NCMBUTTONUP';

$00A9: Result := 'WM_NCMBUTTONDBLCLK';

// edit control messages start (todo: add more if needed)

$00B0: Result := 'EM_GETSEL';

$00B1: Result := 'EM_SETSEL';

$00B2: Result := 'EM_GETRECT';

$00B3: Result := 'EM_SETRECT';

$00B4: Result := 'EM_SETRECTNP';

$00B5: Result := 'EM_SCROLL';

$00B6: Result := 'EM_LINESCROLL';

$00B7: Result := 'EM_SCROLLCARET';

$00B8: Result := 'EM_GETMODIFY';

$00B9: Result := 'EM_SETMODIFY';

$00BA: Result := 'EM_GETLINECOUNT';

$00BB: Result := 'EM_LINEINDEX';

$00BC: Result := 'EM_SETHANDLE';

$00BD: Result := 'EM_GETHANDLE';

$00BE: Result := 'EM_GETTHUMB';

$00C1: Result := 'EM_LINELENGTH';

$00C2: Result := 'EM_REPLACESEL';

$00C4: Result := 'EM_GETLINE';

$00C5: Result := 'EM_LIMITTEXT';

$00C6: Result := 'EM_CANUNDO';

$00C7: Result := 'EM_UNDO';

$00C8: Result := 'EM_FMTLINES';

$00C9: Result := 'EM_LINEFROMCHAR';

$00CB: Result := 'EM_SETTABSTOPS';

$00CC: Result := 'EM_SETPASSWORDCHAR';

$00CD: Result := 'EM_EMPTYUNDOBUFFER';

$00CE: Result := 'EM_GETFIRSTVISIBLELINE';

$00CF: Result := 'EM_SETREADONLY';

$00D0: Result := 'EM_SETWORDBREAKPROC';

$00D1: Result := 'EM_GETWORDBREAKPROC';

$00D2: Result := 'EM_GETPASSWORDCHAR';

$00D3: Result := 'EM_SETMARGINS';

$00D4: Result := 'EM_GETMARGINS';

$00D5: Result := 'EM_GETLIMITTEXT';

$00D6: Result := 'EM_POSFROMCHAR';

$00D7: Result := 'EM_CHARFROMPOS';

// edit control messages end

// scrollbar control messages start

$00E0: Result := 'SBM_SETPOS';

$00E1: Result := 'SBM_GETPOS';

$00E2: Result := 'SBM_SETRANGE';

$00E3: Result := 'SBM_GETRANGE';

$00E4: Result := 'SBM_ENABLE_ARROWS';

$00E6: Result := 'SBM_SETRANGEREDRAW';

$00E9: Result := 'SBM_SETSCROLLINFO';

$00EA: Result := 'SBM_GETSCROLLINFO';

$00EB: Result := 'SBM_GETSCROLLBARINFO';

// scrollbar control messages end

// button control messages start

$00F0: Result := 'BM_GETCHECK';

$00F1: Result := 'BM_SETCHECK';

$00F2: Result := 'BM_GETSTATE';

$00F3: Result := 'BM_SETSTATE';

$00F4: Result := 'BM_SETSTYLE';

$00F5: Result := 'BM_CLICK';

$00F6: Result := 'BM_GETIMAGE';

$00F7: Result := 'BM_SETIMAGE';

$00F8: Result := 'BM_SETDONTCLICK';

// button control messages end

$0100: Result := 'WM_KEYFIRST or WM_KEYDOWN';

$0101: Result := 'WM_KEYUP';

$0102: Result := 'WM_CHAR';

$0103: Result := 'WM_DEADCHAR';

$0104: Result := 'WM_SYSKEYDOWN';

$0105: Result := 'WM_SYSKEYUP';

$0106: Result := 'WM_SYSCHAR';

$0107: Result := 'WM_SYSDEADCHAR';

$0108: Result := 'WM_KEYLAST';

$010D: Result := 'WM_IME_STARTCOMPOSITION';

$010E: Result := 'WM_IME_ENDCOMPOSITION';

$010F: Result := 'WM_IME_COMPOSITION or WM_IME_KEYLAST';

$0110: Result := 'WM_INITDIALOG';

$0111: Result := 'WM_COMMAND';

$0112: Result := 'WM_SYSCOMMAND';

$0113: Result := 'WM_TIMER';

$0114: Result := 'WM_HSCROLL';

$0115: Result := 'WM_VSCROLL';

$0116: Result := 'WM_INITMENU';

$0117: Result := 'WM_INITMENUPOPUP';

$011F: Result := 'WM_MENUSELECT';

$0120: Result := 'WM_MENUCHAR';

$0121: Result := 'WM_ENTERIDLE';

$0122: Result := 'WM_MENURBUTTONUP';

$0123: Result := 'WM_MENUDRAG';

$0124: Result := 'WM_MENUGETOBJECT';

$0125: Result := 'WM_UNINITMENUPOPUP';

$0126: Result := 'WM_MENUCOMMAND';

$0127: Result := 'WM_CHANGEUISTATE';

$0128: Result := 'WM_UPDATEUISTATE';

$0129: Result := 'WM_QUERYUISTATE';

$0132: Result := 'WM_CTLCOLORMSGBOX';

$0133: Result := 'WM_CTLCOLOREDIT';

$0134: Result := 'WM_CTLCOLORLISTBOX';

$0135: Result := 'WM_CTLCOLORBTN';

$0136: Result := 'WM_CTLCOLORDLG';

$0137: Result := 'WM_CTLCOLORSCROLLBAR';

$0138: Result := 'WM_CTLCOLORSTATIC';

$0140: Result := 'CB_GETEDITSEL';

$0141: Result := 'CB_LIMITTEXT';

$0142: Result := 'CB_SETEDITSEL';

$0143: Result := 'CB_ADDSTRING';

$0144: Result := 'CB_DELETESTRING';

$0145: Result := 'CB_DIR';

$0146: Result := 'CB_GETCOUNT';

$0147: Result := 'CB_GETCURSEL';

$0148: Result := 'CB_GETLBTEXT';

$0149: Result := 'CB_GETLBTEXTLEN';

$014A: Result := 'CB_INSERTSTRING';

$014B: Result := 'CB_RESETCONTENT';

$014C: Result := 'CB_FINDSTRING';

$014D: Result := 'CB_SELECTSTRING';

$014E: Result := 'CB_SETCURSEL';

$014F: Result := 'CB_SHOWDROPDOWN';

$0150: Result := 'CB_GETITEMDATA';

$0151: Result := 'CB_SETITEMDATA';

$0152: Result := 'CB_GETDROPPEDCONTROLRECT';

$0153: Result := 'CB_SETITEMHEIGHT';

$0154: Result := 'CB_GETITEMHEIGHT';

$0155: Result := 'CB_SETEXTENDEDUI';

$0156: Result := 'CB_GETEXTENDEDUI';

$0157: Result := 'CB_GETDROPPEDSTATE';

$0158: Result := 'CB_FINDSTRINGEXACT';

$0159: Result := 'CB_SETLOCALE';

$015A: Result := 'CB_GETLOCALE';

$015B: Result := 'CB_GETTOPINDEX';

$015C: Result := 'CB_SETTOPINDEX';

$015D: Result := 'CB_GETHORIZONTALEXTENT';

$015E: Result := 'CB_SETHORIZONTALEXTENT';

$015F: Result := 'CB_GETDROPPEDWIDTH';

$0160: Result := 'CB_SETDROPPEDWIDTH';

$0161: Result := 'CB_INITSTORAGE';

$0163: Result := 'CB_MULTIPLEADDSTRING';

$0164: Result := 'CB_GETCOMBOBOXINFO';

$0200: Result := 'WM_MOUSEFIRST or WM_MOUSEMOVE';

$0201: Result := 'WM_LBUTTONDOWN';

$0202: Result := 'WM_LBUTTONUP';

$0203: Result := 'WM_LBUTTONDBLCLK';

$0204: Result := 'WM_RBUTTONDOWN';

$0205: Result := 'WM_RBUTTONUP';

$0206: Result := 'WM_RBUTTONDBLCLK';

$0207: Result := 'WM_MBUTTONDOWN';

$0208: Result := 'WM_MBUTTONUP';

$0209: Result := 'WM_MBUTTONDBLCLK';

$020A: Result := 'WM_MOUSEWHEEL or WM_MOUSELAST';

$0210: Result := 'WM_PARENTNOTIFY';

$0211: Result := 'WM_ENTERMENULOOP';

$0212: Result := 'WM_EXITMENULOOP';

$0213: Result := 'WM_NEXTMENU';

$0214: Result := 'WM_SIZING';

$0215: Result := 'WM_CAPTURECHANGED';

$0216: Result := 'WM_MOVING';

$0218: Result := 'WM_POWERBROADCAST';

$0219: Result := 'WM_DEVICECHANGE';

$0220: Result := 'WM_MDICREATE';

$0221: Result := 'WM_MDIDESTROY';

$0222: Result := 'WM_MDIACTIVATE';

$0223: Result := 'WM_MDIRESTORE';

$0224: Result := 'WM_MDINEXT';

$0225: Result := 'WM_MDIMAXIMIZE';

$0226: Result := 'WM_MDITILE';

$0227: Result := 'WM_MDICASCADE';

$0228: Result := 'WM_MDIICONARRANGE';

$0229: Result := 'WM_MDIGETACTIVE';

$0230: Result := 'WM_MDISETMENU';

$0231: Result := 'WM_ENTERSIZEMOVE';

$0232: Result := 'WM_EXITSIZEMOVE';

$0233: Result := 'WM_DROPFILES';

$0234: Result := 'WM_MDIREFRESHMENU';

$0281: Result := 'WM_IME_SETCONTEXT';

$0282: Result := 'WM_IME_NOTIFY';

$0283: Result := 'WM_IME_CONTROL';

$0284: Result := 'WM_IME_COMPOSITIONFULL';

$0285: Result := 'WM_IME_SELECT';

$0286: Result := 'WM_IME_CHAR';

$0288: Result := 'WM_IME_REQUEST';

$0290: Result := 'WM_IME_KEYDOWN';

$0291: Result := 'WM_IME_KEYUP';

$02A1: Result := 'WM_MOUSEHOVER';

$02A2: Result := 'WM_NCMOUSELEAVE';

$02A3: Result := 'WM_MOUSELEAVE';

$0300: Result := 'WM_CUT';

$0301: Result := 'WM_COPY';

$0302: Result := 'WM_PASTE';

$0303: Result := 'WM_CLEAR';

$0304: Result := 'WM_UNDO';

$0305: Result := 'WM_RENDERFORMAT';

$0306: Result := 'WM_RENDERALLFORMATS';

$0307: Result := 'WM_DESTROYCLIPBOARD';

$0308: Result := 'WM_DRAWCLIPBOARD';

$0309: Result := 'WM_PAINTCLIPBOARD';

$030A: Result := 'WM_VSCROLLCLIPBOARD';

$030B: Result := 'WM_SIZECLIPBOARD';

$030C: Result := 'WM_ASKCBFORMATNAME';

$030D: Result := 'WM_CHANGECBCHAIN';

$030E: Result := 'WM_HSCROLLCLIPBOARD';

$030F: Result := 'WM_QUERYNEWPALETTE';

$0310: Result := 'WM_PALETTEISCHANGING';

$0311: Result := 'WM_PALETTECHANGED';

$0312: Result := 'WM_HOTKEY';

$0317: Result := 'WM_PRINT';

$0318: Result := 'WM_PRINTCLIENT';

$031F: Result := 'WM_DWMNCRENDERINGCHANGED';

$0358: Result := 'WM_HANDHELDFIRST';

$035F: Result := 'WM_HANDHELDLAST';

$0380: Result := 'WM_PENWINFIRST';

$038F: Result := 'WM_PENWINLAST';

$0390: Result := 'WM_COALESCE_FIRST';

$039F: Result := 'WM_COALESCE_LAST';

$03E0: Result := 'WM_DDE_FIRST or WM_DDE_INITIATE';

$03E1: Result := 'WM_DDE_TERMINATE';

$03E2: Result := 'WM_DDE_ADVISE';

$03E3: Result := 'WM_DDE_UNADVISE';

$03E4: Result := 'WM_DDE_ACK';

$03E5: Result := 'WM_DDE_DATA';

$03E6: Result := 'WM_DDE_REQUEST';

$03E7: Result := 'WM_DDE_POKE';

$03E8: Result := 'WM_DDE_EXECUTE or WM_DDE_LAST';

$0400: Result := 'WM_USER';

// progress bar

$0401: Result := 'PBM_SETRANGE';

$0402: Result := 'PBM_SETPOS';

$0403: Result := 'PBM_DELTAPOS';

$0404: Result := 'PBM_SETSTEP';

$0405: Result := 'PBM_STEPIT';

$0406: Result := 'PBM_SETRANGE32';

$0407: Result := 'PBM_GETRANGE';

$0408: Result := 'PBM_GETPOS';

$0409: Result := 'PBM_SETBARCOLOR';

$040A: Result := 'PBM_SETMARQUEE';

$040D: Result := 'PBM_GETSTEP';

$040E: Result := 'PBM_GETBKCOLOR';

$040F: Result := 'PBM_GETBARCOLOR';

$0410: Result := 'PBM_SETSTATE';

$0411: Result := 'PBM_GETSTATE';

// misc

$0469: Result := 'UDM_SETBUDDY';

$046A: Result := 'UDM_GETBUDDY';

$102C: Result := 'LVM_GETITEMSTATE';

$8000: Result := 'WM_APP';

else

Result := 'Unknown(' + IntToStr(WM_Message) + ')';

end; {Case}

end;

参考：http://vcl-styles-utils.googlecode.com/svn-history/r111/trunk/Common/Vcl.Styles.InnoSetup.pas

把Message转换成String的更多相关文章

  1. Java 把 InputStream 转换成 String 的几种方法

    我们在 Java 中经常会碰到如何把 InputStream 转换成 String 的情形,比如从文件或网络得到一个 InputStream,需要转换成字符串输出或赋给别的变量. 未真正关注这个问题之 ...

  2. Java 里把 InputStream 转换成 String 的几种方法

    我们在 Java 中经常会碰到如何把 InputStream 转换成 String 的情形,比如从文件或网络得到一个 InputStream,需要转换成字符串输出或赋给别的变量. 未真正关注这个问题之 ...

  3. 如何将int整型转换成String字符串类型

    自动类型转换适用于兼容类型之间从小范围到大范围数据的转换. nt转换成String int i = 10; int b=1: System.out.pritnln(a + b); 里面靠近字符串,所以 ...

  4. Python2.X如何将Unicode中文字符串转换成 string字符串

    Python2.X如何将Unicode中文字符串转换成 string字符串   普通字符串可以用多种方式编码成Unicode字符串,具体要看你究竟选择了哪种编码:unicodestring = u&q ...

  5. 在DataColumn.Expression把DateTime转换成String的问题

    我在使用MySql5.1的数据库中,使用winForm的DataGridView要把数据库中全称DateTime格式,转换成Date格式,就是把日期时间转换成日期,不要时间.如‘2013-07-08 ...

  6. double型转换成string型

    double型转换成string型 题目描写叙述: 如有一个函数.其可接受一个long double參数,并将參数转换为字符串.结果字符串应保留两位小数,比如,浮点值123.45678应该生成&quo ...

  7. impala 四舍五入后转换成string后又变成一个double的数值解决（除不尽的情况）

    impala 四舍五入后转换成string后又变成一个double的数值解决(除不尽的情况)例如Query: select cast(round(2 / 3, 4)*100 as string)+-- ...

  8. java中String转换成json,json转换成String

    前置添加pom <!-- 配置gson --> <dependency> <groupId>com.google.code.gson</groupId> ...

  9. java时间类型的转换/获取当前时间/将时间转换成String/将String转换成时间

    对于我的脑子,我已经服气了...写了N遍的东西,就是记不住...既然记不住那就记下来... 利用java获取当前的时间(String类型,年-月-日 时:分:秒) //我要获取当前的日期 Date d ...

随机推荐

  1. [转]log4net 使用指南

    声明:本文内容主要译自Nauman Leghari的Using log4net,亦加入了个人的一点心得(节3.1.4). 请在这里下载示例代码 1           简介 1.1          ...

  2. MDI窗体 的再度思考

    早在敲学生管理系统的时候,青山师哥就跟我说过  MDI 窗体 跟 子窗体的事情,当时只是简单的查询.小小的用了一下,没有太在意. 当再次面对着这个东西更深层的时候才想起师哥那句话.“好好研究一下这个东 ...

  3. <梦断代码>读后感2

    <梦断代码>这本书读了一半,我的心情久久不能平静. 为什么好软件如此难做?这是我本人,我想也是很多人都在苦苦思索的一个问题,虽然没有人能有完全确定的答案,但通过书中的记述,和个人思考,还是 ...

  4. go对json的解析处理

    json常用函数 func Marshal(v interface{}) ([]byte, error) //将各种数据类型转化为json数据类型 func Unmarshal (data []byt ...

  5. 二、break，continue区别

    break:作用于switch,和循环语句,用于跳出,或者称为结束 break语句单独存在,下面不要定义其他语句,因为执行不到,编译会失败,当循环套时,break会跳出当前所在循环,要跳出外部循环,只 ...

  6. Introduction to Financial Management

    Recently,i am learning some useful things about financial management by reading <Essentials of Co ...

  7. 不同平台下Java环境变量的设置

    http://www.java.com/en/download/help/path.xml

  8. ASP.NET MVC学习之视图篇（1）

    一.前言 不知道还有多少读者从第一篇开始一直学习到如今,笔者也会一直坚持将ASP.NET MVC的学习完美的结束掉,然后开始写如何配合其他框架使用ASP.NET MVC的随笔.当然笔者后面的随笔如果没 ...

  9. Brush Mode --- Nyoj 236 分类： Brush Mode 2014-04-02 06:56 116人阅读 评论(0) 收藏

    心急的C小加 时间限制:1000 ms  |  内存限制:65535 KB 难度:4 描述 C小加有一些木棒,它们的长度和质量都已经知道,需要一个机器处理这些木棒,机器开启的时候需要耗费一个单位的时间 ...

  10. KMP_Best Reward

    大意:把一个字符串分成两串,假如一个字符串是回文串就可以加上它的VALUE,否则它的VALUE为0: KMP的特点是可以求出前缀与后面的字符串是否匹配, 注意回文串的特点,所以当我们把回文串反转的时候 ...