把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. [原]项目进阶 之 集群环境搭建（二）MySQL集群

    上次的博文中我们介绍了一下集群的相关概念,今天的博文我们介绍一下MySQL集群的相关内容. 1.MySQL集群简介 MySQL群集技术在分布式系统中为MySQL数据提供了冗余特性,增强了安全性,使得单 ...

  2. UIStepper swift

    // // ViewController.swift // UILabelTest // // Created by mac on 15/6/23. // Copyright (c) 2015年 fa ...

  3. 一：java概述：

    1991 年Sun公司的James Gosling等人开始开发名称为 Oak 的语言,希望用于控制嵌入在有线电视交换盒.PDA等的微处理器: 1994年将Oak语言更名为Java: Java的三种技术 ...

  4. Java实现 Base64、MD5、MAC、HMAC加密

    开始对那些基本的加密还不怎么熟练,然后总结了些,写了一个测试:支持 Base64.MD5.MAC.HMAC加密,长话短说,我们都比较喜欢自己理解,看代码吧! 采用的输UTF-8的格式... packa ...

  5. 【Simplify Path】cpp

    题目: Given an absolute path for a file (Unix-style), simplify it. For example,path = "/home/&quo ...

  6. Class类工具 - ClassUtils.java

    Class类工具,提供操作class类的方法.<br/>比如:获知类.方法上是否有注解,获取类注解,获取某package下所有class等. 源码如下:(点击下载 - ClassUtils ...

  7. Mysql 慢查询设置

    Mysql慢查询设置 分析MySQL语句查询性能的方法除了使用 EXPLAIN 输出执行计划,还可以让MySQL记录下查询超过指定时间的语句,我们将超过指定时间的SQL语句查询称为“慢查询”. === ...

  8. HDU 5568 sequence2 区间dp+大数

    题目链接: http://acm.hdu.edu.cn/showproblem.php?pid=5568 题意: 求所有长度为k的严格升序子序列的个数. 题解: 令dp[i][k]表示以i结尾的长度为 ...

  9. Matlab交集并集的实现

    >> a = [1 2 3 4 8 9]; >> b = [4 5 6 1] b = 4 5 6 1 >> c = intersect(a,b) c = 1 4 判 ...

  10. 【转载】C++编译出现 error C2664: 不能将参数 2 从“const char [5]”转换为“LPCTSTR”解决办法。

    编译程序的时候出现这样的错误,原因是在新建MFC项目的时候,设置字符集Unicode的属性. 解决方法一: 在VC2010的解决方案管理器窗口内,右击你的项目“项目”,然后选“属性”(最后一项),再点 ...