把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. SQL Server 2008 的安装

    SQL Server 2008简体中文企业版下载(SQL2008) SQL Server 2008分为SQL Server 2008企业版.标准版.工作组版.Web版.开发者版.Express版.Co ...

  2. 巧用 .NET 中的「合并运算符」获得 URL 中的参数

    获取 URL 中的 GET 参数,无论用什么语言开发网站,几乎是必须会用到的代码.但获取 URL 参数经常需要注意一点就是要先判断是否有这个参数存在,如果存在则取出,如果不存在则用另一个值.这个运算称 ...

  3. 四则运算程序扩展：将程序改为java语言,并允许用户输入，对输入结果进行验证

    题目 每个同学选一个方向,把程序扩展一下:1.让程序能接受用户输入答案,并判定对错.最后给出总共对/错 的数量.2.把程序变成一个网页程序,用户通过设定参数,就可以得到各种题目.3.把程序变成一个Wi ...

  4. Node.js 学习（四）Node.js 回调函数

    Node.js 异步编程的直接体现就是回调. 异步编程依托于回调来实现,但不能说使用了回调后程序就异步化了. 回调函数在完成任务后就会被调用,Node 使用了大量的回调函数,Node 所有 API 都 ...

  5. elasticsearch中的mapping映射配置与查询典型案例

    elasticsearch中的mapping映射配置与查询典型案例 elasticsearch中的mapping映射配置示例比如要搭建个中文新闻信息的搜索引擎,新闻有"标题".&q ...

  6. ASP.NET MVC 4 插件化架构简单实现-思路篇

    用过和做过插件的都会了解插件的好处,园子里也有很多和讨论,但大都只些简单的加载程序集什么的,这里主要讨论的就是使用 ASP.NET MVC 4 来实现每个插件都可以完全从主站点剥离出来,即使只是一个插 ...

  7. 【BZOJ】【1052】【HAOI2007】覆盖问题

    二分+贪心 首先二分L,转化成判定问题…… 但是判定不会判啊QAQ orz hzwer,用一个最小的矩形框住所有点后,直接往矩形的角上摆正方形……第二个用同样的方法摆,最后判一下剩下的能否被完全覆盖 ...

  8. Leetcode#68 Text Justification

    原题地址 没有复杂的算法,纯粹的模拟题 先试探,计算出一行能放几个单词 然后计算出单词之间有几个空格,注意,如果空格总长度无法整除空格数,前面的空格长度通通+1 最后放单词.放空格,组成一行,加入结果 ...

  9. string为什么可以写入共享内存

    我今天在想这个vector,map为什么不能写入共享内存,原来是因为new的时候只是new了这个对象在共享内存上,而真正的堆上的内存并没有在共享内存里面的,如果要想vector 可以共享就要重写分配器 ...

  10. BZOJ 2038

    基础不牢:补莫队算法: 莫队算法入门题: 2038: [2009国家集训队]小Z的袜子(hose) Time Limit: 20 Sec  Memory Limit: 259 MBSubmit: 26 ...