代码改变世界

阅读排行榜

Delphi 正则表达式匹配任意字符(包括换行符)的写法

2010-09-21 18:52 by 邱鹏, 1389 阅读, 收藏,
摘要: 在正则中,匹配任意字符,其实写法网上有很多,但因为各种软件或程序写法不支持等原因导致的问题,大家可以多研究。 今天在Delphi中想使用正则表达式来获取一段文本中的任意字符。于是很随意得就写出如下匹配规则: (.*) 结果运行之后才发现,无法获得换行之后的文本。于是查了一下手册,才发现正则表达式中,“.”(点符号)匹配的是除了换行符“\n”以外的所... 阅读全文

Delphi 在内存中运行EXE程序,从资源文件中加载

2011-03-24 17:46 by 邱鹏, 1272 阅读, 收藏,
摘要: # unit MemRun;## interface## uses windows;## function MemExecute(const ABuffer; Len: Integer; CmdParam: string; var ProcessId: Cardinal): Cardinal;## implementation## //{$R ExeShell.res} // 外壳程序模板(98下使用)## type## TImageSectionHeaders = array [0..0] of TImageSectionHeader;# PImageSectionHeaders = ^TI 阅读全文

用Delphi写的SPI(LSP)的部分代码

2011-03-20 10:52 by 邱鹏, 1255 阅读, 收藏,
摘要: //------------------------------------------------------------------------------// Created by Sima huapeng 2001// 服务提供者的标准入口函数,这里的主要工作是根据lpProtocolInfo找出已经被替换的// 的服务函数的路径,然后加载,并利用被替换的服务提供者的WSPStartup得到的30多个// 服务函数指针。需要首先保存这些函数指针,然后将lpProcTable结构中的30个服务函数// 指针都设置成自己的,这样,相应的函数请求首先经过我们自己的函数,然后用这些函数// 可 阅读全文

Delphi对象的方法能定义- 静态(static)、虚拟(virtual)、动态(dynamic)或消息处理(message)

2010-04-04 12:31 by 邱鹏, 885 阅读, 收藏,
摘要: 对象的方法能定义成静态(static)、虚拟(virtual)、动态(dynamic)或消息处理(message)。请看下面 的例子: TFoo = class procedure IAmAStatic; procedure IAmAVirtual; virtual; procedure IAmADynamic; dynamic; procedure IAmAMessage(var... 阅读全文

Delphi中挂接IWebBrowser2的自动化事件

2011-04-21 23:38 by 邱鹏, 756 阅读, 收藏,
摘要: OLE自动化的控制方有时要从受控方接收事件通知。比如WebBrowser的 OnNavagiteComplete,OnDocumentComplete等事件。OLE对象需要实现 IConnectionPointContainer接口。IConnectionPointContainer和其它几个跟自动化事件相关的接口定义如下:IEnumConnections = interface ['{B196B287-BAB4-101A-B69C-00AA00341D07}'] function Next(celt: Longint; out elt; pceltFetched: PLong 阅读全文