上一页 1 ··· 139 140 141 142 143 144 145 146 147 ··· 215 下一页
摘要: function LoadAccelerators( hInstance: HINST; {} lpTableName: PChar {} ): HACCEL; {} function CreateAcceleratorTable( var Accel; {} Count: Integer {} ): HACCEL; {}... 阅读全文
posted @ 2008-04-03 16:32 万一 阅读(2707) 评论(0) 推荐(0)
摘要: 声明: EmptyClipboard: BOOL; {} 举例: begin OpenClipboard(0); EmptyClipboard; CloseClipboard; end; 阅读全文
posted @ 2008-04-03 16:31 万一 阅读(3144) 评论(0) 推荐(0)
摘要: 下载不行了 我觉得到目前为止, 最有价值的一套 Windows 编程中文参考资料还是当属: Microsoft Win 32 程序员参考大全(一)- 窗口管理和图形设备接口 Microsoft Win 32 程序员参考大全(二)- 系统服务、多媒体、系统扩展、应用程序须知 Microsoft Win 32 程序员参考大全(三)- 函数(A—G) Microsoft Win 32 程序员参考大全(... 阅读全文
posted @ 2008-04-02 21:12 万一 阅读(3757) 评论(43) 推荐(1)
摘要: 问题来源: http://www.cnblogs.com/del/archive/2008/04/02/1055762.html#1134153 http://www.cnblogs.com/del/archive/2008/04/02/1055648.html#1134081 Delphi 的按位运算符共有六个: not and or xor shr shl; 其中的 not and or ... 阅读全文
posted @ 2008-04-02 12:01 万一 阅读(15089) 评论(8) 推荐(1)
摘要: 问题来源: http://www.cnblogs.com/del/archive/2008/04/02/1131232.html#1133889 答案: WebBrowser1.OleObject.Document.ParentWindow.变量名; 譬如有这样一个页面(lancernig 举的例子), 如何提取其中的 pvs 呢: 测试页 ... 假定是把页面保存在 '... 阅读全文
posted @ 2008-04-02 10:54 万一 阅读(3254) 评论(6) 推荐(0)
摘要: 在学习 资源文件 和 钩子函数 时, 经常用到当前模块句柄(HInstance)这个全局变量. 今天特别想知道, 它到底是在什么时候给赋值的. 输入 HInstance; "Ctrl+鼠标" 找到它的声明之处: SysInit 单元的第 29 行(Delphi 2007) - HInstance: LongWord; 看来 Delphi 的隐含单元不只是 System.pas, 还有 SysIn... 阅读全文
posted @ 2008-04-01 14:04 万一 阅读(6431) 评论(2) 推荐(1)
摘要: 定义: GetModuleHandle( lpModuleName: PChar {模块名; 只能是映射到当前进程的模块} ): HMODULE; {返回模块句柄; 0 表示失败} 举例: //获取当前模块的句柄 var s: string; h: Cardinal; begin {先取得模块名} s := Application.ExeName;... 阅读全文
posted @ 2008-04-01 13:48 万一 阅读(25265) 评论(4) 推荐(0)
摘要: FmtStr 是个过程, 它是用第一个参数来返回结果的; Format 是个函数, 返回值就是格式后的结果. 举例: var str: string; begin FmtStr(str, '最大整数是: %d', [MaxInt]); ShowMessage(str); {最大整数是: 2147483647} str := F... 阅读全文
posted @ 2008-03-31 22:49 万一 阅读(4896) 评论(1) 推荐(0)
摘要: 举例: var s: string; b: Boolean; begin s := 'CodeDear Delphi'; b := IsDelimiter('de', s, 3); ShowMessage(BoolToStr(b)); {返回 -1, 就是 True} end; SysUtils 单元下的公用函数目录 阅读全文
posted @ 2008-03-31 22:44 万一 阅读(2983) 评论(0) 推荐(0)
摘要: 该函数不区分大小写, 举例: var s: string; i: Integer; begin s := 'CodeDear Delphi'; i := LastDelimiter('Del',s); ShowMessage(IntToStr(i)); {12} end; SysUtils 单元下的公用函数目录 阅读全文
posted @ 2008-03-31 22:38 万一 阅读(5339) 评论(0) 推荐(0)
上一页 1 ··· 139 140 141 142 143 144 145 146 147 ··· 215 下一页