2012年3月19日

摘要: 博客记录。。。 阅读全文

posted @ 2012-03-19 21:22 严武 阅读(122) 评论(0) 推荐(0) 编辑


2012年3月15日

摘要: var pSource,pDest:PChar; len: integer;.......................//一些代码Move(pSource,pDest,len); //错误Move(pSource^,pDest^,len); //正确看起来确实好像是传值,而不是传地址,但是各位别忘了,这不是C,C++,而是DelphiObject Pascal,所以,绝不能从函数调用的方法判断是传值还是串地址!!必须看函数的定义,只有定义才能说明是传值还是传地址,再说一遍,这不是C,C++!!我们看到的函数定义是这样的procedure Move(const Source; var Des 阅读全文

posted @ 2012-03-15 14:41 严武 阅读(5353) 评论(0) 推荐(0) 编辑

摘要: WORD MAKEWORD( BYTE bLow,// low-order byte of short value BYTE bHigh// high-order byte of short value);((WORD) (((BYTE) (a)) | ((WORD) ((BYTE) (b))) << 8)) makeword是将两个byte型合并成一个word型,一个在高8位,一个在低8位 makelparam、makelong和makewparam都是一样的,将两个word型合并成一个dword型。一个在高16位,一个在低16位delphi:word((byte(a)) or 阅读全文

posted @ 2012-03-15 11:30 严武 阅读(1777) 评论(0) 推荐(0) 编辑


2012年1月18日

摘要: /// <summary> /// <函数:Encode> /// 作用:将字符串内容转化为16进制数据编码,其逆过程是Decode /// 参数说明: /// strEncode 需要转化的原始字符串 /// 转换的过程是直接把字符转换成Unicode字符,比如数字"3"-->0033,汉字"我"-->U+6211 /// 函数decode的过程是encode的逆过程. /// </summary> /// <param name="strEncode"></para 阅读全文

posted @ 2012-01-18 10:21 严武 阅读(1403) 评论(0) 推荐(0) 编辑


2011年12月14日

摘要: ?1.Property Name : Typeread Getter|nodefault; ?2.Property Name : Type write Setter; ?3.Property Name : Type read Getter write Setter; ?4.Property Name : Type Index Constant read Getter {default : Constant|nodefault;} {stored : Boolean}; ?5.Property Name : Type Index Constant write Setter {default : 阅读全文

posted @ 2011-12-14 16:14 严武 阅读(3674) 评论(0) 推荐(0) 编辑


2011年11月22日

摘要: 在看 API 文档时, 我们经常见到 GetLastError; 它可以返回操作后系统给的提示.但 GetLastError 返回的只是一个信息代码, 如何返回对应的具体信息呢?FormatMessage 可以, 但这个函数太复杂了; 可以用 SysErrorMessage 代替它.举例:var err: string;begin err := SysErrorMessage(ERROR_INVALID_HANDLE); ShowMessage(err); {句柄无效。}end;下面就是用 SysErrorMessage 获取的部分系统错误信息表:信息常数常数值对应信息ERROR_SUC... 阅读全文

posted @ 2011-11-22 10:15 严武 阅读(824) 评论(0) 推荐(0) 编辑


2011年9月23日

摘要: strFileName := FcxLV[nIndex].Items.Item[FcxLV[nIndex].ItemIndex].SubItems.Strings[0]; //路径 ShellExecute(0, nil, PChar('explorer.exe'),PChar('/e, ' + '/select,' + strFileName), nil, SW_NORMAL); 阅读全文

posted @ 2011-09-23 14:19 严武 阅读(1979) 评论(0) 推荐(0) 编辑


2011年9月15日

摘要: 非常实用的东西!过去知道这个方法的话可以解决多少问题啊首先建立一个C#的DLL工程,写一个类//Test.csnamespaceTest...{publicclassMyTest...{publicstringFun()...{returnthis.ToString();}}},编译然后在cmd里执行VS的vsvars32.bat设置环境变量,然后执行regasmcscomtest.dll/tlb:cscomtest.tlb/codebaseMicrosoft (R) .NET Framework 程序集注册实用工具1.1.4322.573版权所有 (C) Microsoft Corporat 阅读全文

posted @ 2011-09-15 12:58 严武 阅读(1821) 评论(0) 推荐(0) 编辑


2011年8月31日

摘要: procedure imgListMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);privateprocedure WMNCHITTEST(var Msg: TWMNCHITTEST); message WM_NCHITTEST;procedure TfrmStartHit.WMNCHITTEST(var Msg: TWMNCHITTEST);const cOffset = 10;var vPoint: TPoint;begin inherited; vPoint := Scr 阅读全文

posted @ 2011-08-31 15:28 严武 阅读(682) 评论(0) 推荐(0) 编辑


2011年8月19日

摘要: Regsvr32进程文件: regsvr32 or regsvr32.exe进程名称: Microsoft DLL Registration Service英文描述:regsvr32.exe is a processes belonging to the Windows OS and is used to register dynamic-link libraries and ActiveX controls in the registry.中文描述:regsvr32.exe用于注册和取消注册Windows操作系统的DLL(动态链接库)文件和ActiveX控件。这个命令行工具将 dll 文件注 阅读全文

posted @ 2011-08-19 08:58 严武 阅读(26444) 评论(0) 推荐(0) 编辑


Copyright © 2024 严武
Powered by .NET 8.0 on Kubernetes