把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. 2.1孙鑫C++

    0.vc++6.0 工程---win32控制台程序            文件---c++ 1.建立结构体 #include <iostream.h> struct Point { int ...

  2. C Primer Plus学习笔记(二)

    1. C的左值用是指用于标志一个特定的数据对象的名字或表达式.“数据对象”是泛指数据存储的术语. 赋值运算符的左边应该是以个可以修改的左值. 右值是指可赋给可修gia的左值的量.右值可以是常量.变量或 ...

  3. 如果选择构建ui界面方式，手写代码，xib和StoryBoard间的博弈

    代码手写UI这种方法经常被学院派的极客或者依赖多人合作的大型项目大规模使用. 大型多人合作项目使用代码构建UI,主要是看中纯代码在版本管理时的优势,检查追踪改动以及进行代码合并相对容易一些. 另外,代 ...

  4. PSP0表格

    一 项目计划日志 周活动总结表 姓名:陆宇                                                                         日期:3.1 ...

  5. 学习ThinkPHP-1

    ThinkPHP 自建路由 关于文件关联 当在Applicatin\Home\Controller文件夹下建立一个控制器时如LoginController.class.php 在此文件夹下还有一个默认 ...

  6. vmware workstation 10.0

    2013.9.3 vmware workstation 10.0 build 1295980新增功能– 可以将windows 8.1物理pc转变为虚拟机:unity模式增强,与windows 8.1 ...

  7. Linux进程栈和线程栈

    参考资料: http://blog.csdn.net/xhhjin/article/details/7579145 总结:     1.进程的栈大小是在进程执行的时刻才能指定的,即不是在编译的时候决定 ...

  8. 【BZOJ】【1177】【APIO2009】Oil

    DP 找出三个正方形,可以转化为将整个油田切成三个矩形块,每块中各找一个正方形区域,切的形式只有6种,分类更新ans即可 题解:http://trinklee.blog.163.com/blog/st ...

  9. Hdu 1010 Tempter of the Bone 分类： Translation Mode 2014-08-04 16:11 82人阅读 评论(0) 收藏

    Tempter of the Bone Time Limit: 2000/1000 MS (Java/Others)    Memory Limit: 65536/32768 K (Java/Othe ...

  10. javascript中继承(一)-----原型链继承的个人理解

    [寒暄]好久没有更新博客了,说来话长,因为我下定决心要从一个后台程序员转为Front End,其间走过了一段漫长而艰辛的时光,今天跟大家分享下自己对javascript中原型链继承的理解. 总的说来, ...