五维思考

学习要加，骄傲要减，机会要乘，懒惰要除。 http://www.5dthink.cn
  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::

随笔分类 -  Delphi

上一页 1 2 3 下一页

在DBGRID里添加行序号
摘要：// 1. create new blank field in dbgrid // 2. rename the title with 'No' // 3. put this code in OnDrawColumncell // 4. Now your Gri... 阅读全文
posted @ 2008-10-08 08:50 五维思考 阅读(402) 评论(0) 推荐(0) 编辑

DLL函数写法　让我很受教育
摘要：通常我会这样写：function Test(Str,RValue: PChar): Integer; stdcall;var S:String; begin S:='This is Test'+Str; StrPCopy(RValue,S); Result... 阅读全文
posted @ 2008-10-07 20:18 五维思考 阅读(144) 评论(0) 推荐(0) 编辑

Delphi 正则表达式起步
摘要：在 Delphi 中使用正则表达式, 目前 PerlRegEx 应该是首选, 准备彻底而细致地研究它.官方网站: http://www.regular-expressions.info/delphi.html直接下载: http://www.regular-expr... 阅读全文
posted @ 2008-10-07 00:09 五维思考 阅读(189) 评论(0) 推荐(0) 编辑

Delphi 正则表达式（TRegExpr）
摘要：首先介绍的是这个单元的主角：TRegExpr类，这个类包括很多成员，这里仅简单的介绍一下一般匹配的过程。下面是一段在文本中提取邮件地址的代码：Procedure GetName(TextToCheck:String;aList:TStringList);Varmy... 阅读全文
posted @ 2008-10-06 23:45 五维思考 阅读(723) 评论(0) 推荐(0) 编辑

实现自动按键的方法 驱动级模拟(硬件模拟)
摘要：有些游戏直接用au3里面的模拟点击/按键都是无效的,包括qq2007也是无法实现,下面是一个解决方法,具体实现方法(vb的),想改成au3的,还没成功,有兴趣的朋友也来试试.驱动级模拟 如果上面的方法你都试过了，可是你发现目标程序却仍然顽固的不接受你模拟的消息... 阅读全文
posted @ 2008-10-06 21:35 五维思考 阅读(2112) 评论(0) 推荐(0) 编辑

Delphi中array of const应用
摘要：Delphi的Format函数大家都用得很多，第二个参数用着确实很方便。最近在数据库开发应用中需要自己创建一个带array of const参数的函数，对于常用的类型String,Integer,Pointer处理都没什么问题，但当用到Widestring类型时却出错... 阅读全文
posted @ 2008-10-05 14:21 五维思考 阅读(369) 评论(0) 推荐(0) 编辑

向指定HWND发送字符串
摘要：procedure SendKeys(focushld: hwnd; sSend: string);var i: integer; ch: byte;begin if focushld = 0 then Exit; i := 1; while i <= L... 阅读全文
posted @ 2008-10-04 14:57 五维思考 阅读(204) 评论(0) 推荐(0) 编辑

Delphi2009新特性的介绍
摘要：集中在Unicode，以及一些新的URL上，我试图从一些不同的角度察看一下Delphi2009都有些什么东西.IDE：粗看起来Delphi2009的IDE较之Delphi2007并没有什么特别的增强。主要的UI元素也没有大的变化。最显著的变化就是Project Man... 阅读全文
posted @ 2008-10-04 09:14 五维思考 阅读(207) 评论(0) 推荐(0) 编辑

判断中英文的函数
摘要：function ByteType(const S: string; Index: Integer): TMbcsByteType; 函数返回值可以判断一个字符串中，某个Char是单个字母，还是双字节的前一位或后一位。 返回值： mbSingleByte 单... 阅读全文
posted @ 2008-10-03 18:20 五维思考 阅读(208) 评论(0) 推荐(0) 编辑

Windows消息
摘要：Windows消息汇总WM_NULL = $0000; WM_CREATE = $0001; 应用程序创建一个窗口 WM_DESTROY = $0002; 一个窗口被销毁 WM_MOVE = $0003; 移动一个窗口 WM_SIZE = $0005; 改变一个窗口的... 阅读全文
posted @ 2008-10-03 16:47 五维思考 阅读(185) 评论(0) 推荐(0) 编辑

关于钩子函数的讲解
摘要：这是win32汇编语言中关于钩子函数的讲解，是丛windows的底层讲的，对于c，vb,delphi语言，原理都相同，只是语法的问题。 WINDOWS钩子函数 本文中我们将要学习WINDOWS钩子函数的使用方法。WINDOWS钩子函数的功能非常强大，有了它您... 阅读全文
posted @ 2008-10-03 16:44 五维思考 阅读(624) 评论(0) 推荐(0) 编辑

Delphi - 关于钩子函数HOOK (二)
摘要：用DELPHI编制钩子函数Windows消息管理机构提供了能使应用程序访问控制消息流所谓的钩子(HOOK)机制。钩子有多种，分别用于捕获某一特定类型或某一范围的消息。如：键盘消息，鼠标消息等。我们这里仅以键盘钩子的使用为例，讨论在DELPHI下怎样编写DLL程序和怎样... 阅读全文
posted @ 2008-10-03 16:39 五维思考 阅读(402) 评论(0) 推荐(0) 编辑

Delphi - 关于钩子函数HOOK (一)
摘要：基本概念钩子(Hook)，是Windows消息处理机制的一个平台,应用程序可以在上面设置子程以监视指定窗口的某种消息，而且所监视的窗口可以是其他进程所创建的。当消息到达后，在目标窗口处理函数之前处理它。钩子机制允许应用程序截获处理window消息或特定事件。钩子实际上... 阅读全文
posted @ 2008-10-03 16:37 五维思考 阅读(836) 评论(0) 推荐(0) 编辑

用跨进程子类化技术实现对其它进程消息的拦载
摘要：大家都知道每个窗口都有默认的窗口函数来进行对窗口消息的处理. 而子类化技术就是替换窗口的窗口函数为自己定义的函数的技术.例如下面的代码:var Form1: TForm1; OldWndProc: Pointer;implementation{$R *.df... 阅读全文
posted @ 2008-10-03 13:25 五维思考 阅读(375) 评论(0) 推荐(0) 编辑

浅谈Delphi中进程间的数据共享
摘要：DLL是创建Windows应用程序，实现代码重用的重要手段。那么当我们需要在进程间共享数据时，怎样做才能快捷方便地实现呢？在32位应用系统中，每个应用程序会将DLL映射到自己的地址空间，同时DLL中的数据也就随之被映射了。这样，每个应用程序都有自己的数据实例，在一... 阅读全文
posted @ 2008-10-03 13:20 五维思考 阅读(192) 评论(0) 推荐(0) 编辑

Delphi：利用内存映射文件在两个进程间共享数据
摘要：private hMapFile: THandle; MapFilePointer: Pointer; public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1. 阅读全文
posted @ 2008-10-03 13:04 五维思考 阅读(279) 评论(0) 推荐(0) 编辑

Windows消息前缀
摘要：Windows消息类型Windows操作系统定义了系统消息的类型，它通过诸如WM_PAINT之类的符号常量发送给你的应用程序。该符号常量由两部分组成，如上例的WM前缀，它标识能处理消息的窗口类型；剩下的PAINT指定当消息接收后该窗口应该做什么。 消息前缀对象窗口类型... 阅读全文
posted @ 2008-10-02 17:07 五维思考 阅读(219) 评论(0) 推荐(0) 编辑

从内存中加载并运行exe
摘要：{配合anskya的AnyWhereFileToPas效果不错}{ ******************************************************* }{ * 从内存中加载并运行exe ... 阅读全文
posted @ 2008-10-02 14:42 五维思考 阅读(522) 评论(0) 推荐(0) 编辑

字符串排序等算法
摘要：15,1,5,10,13,14,50,4,55,8,67,68,69,3,12,57,70,74 字符串，排序后再把连续数字用-连接在一起，结果为：1,3-5,8,10,12-15,50,55,57,67-70,74function NumberSort(List... 阅读全文
posted @ 2008-09-25 14:13 五维思考 阅读(193) 评论(0) 推荐(0) 编辑

字符串与16进制互转
摘要：//字符串转为16进制 function StrToHex(AStr: String): String;var i : Integer;begin Result := ''; for i := 1 to Length(AStr) do Result := ... 阅读全文
posted @ 2008-09-25 11:37 五维思考 阅读(288) 评论(0) 推荐(0) 编辑

上一页 1 2 3 下一页

QQ群：1. 全栈码农【346906288】2. VBA/VSTO【2660245】